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u Itimamente, las aguas estdn muy revueltas en todo lo que 
concierne a lb I ordenadores Amstrad. Hay mucha gente que se siente 
inquieta respecto al futuro de atgunas maquinas de la marca , tal vez con 
razon, tal vez sin ella, pe.ro nadie olvida el desplante de Alan Sugar y, 
pvr tan to, de sus distribuidores oficiales en nuestro pais y fuera de el, en 
el desgraciado asunto del CPC 664, Two unu vida lo suficientemente 
calculada para conseguir Ires cosas: 

1. Crear un importante hueco en el mercado a este tipo de maquinas 

2. Proporcionar jugosos beneficios a Alan Sugary a Indescomp. 

3. Gracias a un efecto colateral de singular elegancia, dejar muy mal 
sabor de bom en todos los miles de personas que lo adquirieron para 
encontrarse, acto seguido, con un CPC 6128 dos veces mejor y al misrno 
precio, bailando la mazurca del vencedor sobre la tumba del tfimero 664 
Alguien podrla deem g tal vez con un punto de razon, aquello de «agua 
pasada no mueve m.olino», y que este vertiginoso nacer y morir responde 
exclusivamente al trepidante ritmo que impone el mercado de la mformdtica 
personal. Quiza, pern si ponemos en el mismo plato de la balanza al 
664, de triste recucrdo, al reciin muerto PCW 512, y los mdudables 
problemas de calentamiento e incompatibilidad con tarjetas de expansion 
estdndar que experimenta el PC 1512, por no hablar del recien nacido PC 
1640, la cosa es preocupante. Surgen muchas preguntas incomodas: cual 
es la politico de Amstrad ? c ’Va a dar carpetazo a la serie CPC con la 
misma tranquihdad que de costumhre? <■ Y el nuevo PC: 1 Acaso estemos de 
nuevo representandv, a costa dc nuestro bolsillo, la misma tragedia griega 
que. en el caso del 664 y «l PCW 512. c O no.' 

Para intentar responder a eslas preguntas. y a muchas otras, hernos 
habiado con Amstrad en Inglaterra, con las principales tiendas de 
informdtica en Espana y con la propia Indesamtp. Lo que nos han duho, 
escrilo estd. De to que en reahdad suceda luego.. todos seremas testigos. 
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Por: Fco. Javier Barcelo T. 


Como su propio nombre indica, Gem Graph es un programa con el que se 
pueden hacer, como minimo ; ocho tipos de graficos diferentes que seran 
de una gran utilidad en la atractiva presentation de cualquier trabajo. 


u na imagen vale mas que mil palabras. Y 
el mundo empresarial no es una excepcion, sino 
mas bien lo contrario. A la hora de presentar 
balances, informes y re sum cries en los que hay 
gran cantidad de datos numericos, los graficos 
son esenciales. Y claro, los autores de Gem no 
iban a dejar aparte una faceta grafica tan 
apetecible. Y esto es lo que realiza Gem Graph , 


del que hoy probamos una primera version, 
quedando claro que no es la definitiva que 
ustedes veran en las tiendas cuando aparezca este 
numero, o poco despues. 

Gem Graph realiza una gran variedad de 
graficos, basados bien en datos mtroducidos 
manualmente, bien tornados de otros programas, 
como hojas de calculo, bases de datos, etc... 
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En la 

elaboration de 
mapas 

autoexplicativosy 
la utilization de 
Gem Graph 
puede dar muy 
buenos 
resultados. 


Instalacion 

El programa viene con una opcion para 
instalarlo, tanto en disco duro como en disco 
flexible. Esto es importante, en ambas 
modalidades, dado que Gem Graph utiliza una 
serie de ficheros para la impresion que deben 
estar en la carpeta Gemsys para que la salida 
por impresora sea adecuada. El programa 
de instalacion acomoda estos ficheros, 
aunque como reparo se puede decir que es 
necesario disponer del disco Master en la unidad 
de disco A: incluso en caso de disco duro, para 


que este funcione. Seguramente es una medida 
anti pirateo, pero resulta francamente incomodo. 

Funcionamiento 

Como todos los programas de Gem, se activa 
en la carpeta Gemapps, aunque haya que tener el 
disco original en la unidad correspondiente. Los 
graficos que se realicen seran tncluidos en la 
carpeta Graphs, a no ser que se ordene lo 
contrario. En esta carpeta se incluyen tambien 
algunos dibujos de ejemplo, que ni con mucho 
reflejan las posibilidades del programa. Y es que 
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las posibilidades graficas del mismo son muy 
amplias. Los .tipos de graficos que se pueden 
realizar son basicamente ocho, aunque 
combinando todas las posibilidades de los mismos 
con unas cuantas mas. 

Datos 

Hay dos maneras de dar los datos al 
programa, para luego realizar el grafico deseado. 
La primera es introducirlos manualmente, y la 
segunda es recogerlos de otras fuentes. La 
primera opcion es clara y facil, limitandose a 
introducirlos en las respectivas columnas/filas que 
se deseen. En cuanto a la segunda, hay que abrir 
el fichero correspondiente del programa origen y 


Una de sus mayores ventajas 
es la posibilidad 
de utllizar datos tornados 
de otros pro gramas. 

anular las filas/columnas que no mteresen a la 
hora de realizar el grafico. En ambos casos hay 
que introducir tanto tftulo como subtftulo del 
grafico, asf como los nombres de los ejes y los 
valores que se deseen introducir en los puntos de 
los ejes. Esta es la primera pantalla que 
proporciona el programa, en la que se superpone 
la pantalla en la cual se dibuja el grafico. Y esto 
es importante, porque en todo momento, dentro 
de la pantalla de graficos se puede (con el 
puntero) senalar a la esquina superior izquierda 
para volver a la pantalla de datos. 

Una vez mtroducidos los datos, seleccionando 


el menu llamado Galena, como siempre en la 
primera fila de la pantalla, se elige el tipo de 
grafico deseado para que el programa empiece a 
dibujarlo en la pantalla. Con el grafico dibujado, 
se pueden seleccionar las areas de texto para 
cambiar su estilo, forma y tamano, asf como las 
partes del grafico dibujadas para cambiarlas de 
color o estilo. 

Tipos de graficos 

Esta es, sin duda, la parte del programa que 
define su potencia. A la hora de realizar un 
grafico se puede hacer de varias maneras: 

De tarta. Solo utiliza una fila de datos. 
Evidentemente, se puede elegir la fila de la cual 
se dibuje el mismo, y el programa dibuja una 
circunferencia realizando porciones segun los 
valores introducidos. Una vez realizado esto, se 
puede optar por realzar determinadas partes del 
mismo «extrayendo» porciones del grafico, para 
que resalten. 

Lineales. Quiza son los que menos explicacion 
necesiten. Son los tfpicos graficos de lfneas con 
un eje de abcisas y otro de ordenadas. Admiten 
multitud de lfneas diferentes, y marcan en las 
mismas (cosa interesante) los puntos crfticos de 
estas, donde cambian de sentido. 

De superficie. Resulta diffcil darles nombre 
a estos graficos, pero quiza resulten los mas 
atractivos. Con los datos introducidos, realizan 
graficos en los que cada «fila» se dibuja como un 
piano. Se superponen unos a otros, de manera 
que se identifiquen perfectamente los puntos 
clave de todos, pero para que los dibujos resulten 
claros en la impresora es vital elegir bien el 
trazado y color de cada area. Naturalmente, con 
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(Jna de sus 
aplicaciones es 
la creacion de 
graficos de gestion. 
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impresora a color o plotter el problema de la 
diferenciacion es mmimo, pero en la impresora 
normal pueden encontrarse pegas. No obstante, 
son los mas espectaculares, personalmente 
hablando... 

De barras. Los graficos de barras son los 
mas comunes a la hora de representar 
comparativamente determinados datos. Este 
programa para no quedarse corto ofrece distintas 
posibilidades. Para empezar, se puede realizar el 
dibujo horizontal o verticalmente y, ademas, las 
barras pueden ir apiladas o una a continuacion 
de otra. En un caso, es muy importante elegir 
tramas y colores para diferenciar un tipo de 
valores de otro, aunque el programa, 
naturalmente, situe detras siempre el valor 
mayor, y descendentemente todos los demas. En 
caso de multiples tipos de valores, quiza resulta 
un poco confuso. Si se situan agrupadas, siempre 
van en el mismo orden, resultando de menor 
importancia el color y el trazado de cada una. 

Con media. Dentro de las graficas de barras, 
esta proporciona la posibilidad de mtroducir una 
linea de media. Es decir, que ademas de dibujar 
las barras, en modalidad apilada, por supuesto, 
dibuja una linea calculada automaticamente que 
representa la media de los valores introducidos 
para cada punto. Tambien se puede definir esta 
linea de manera manual, significando otra cosa, 
como los gastos de administracion computables a 
cada area de una empresa, etc.. El resultado de 
esta modalidad es de los mas claros a la vista, y 
en monitor color desde luego, es un grafico que 
da una imagen muy clara del estado que se desea 
explicar. 

Pisos. Seguimos con dificultad para darle 
nombre a determinados graficos. Este utiliza los 
datos para construir una especie de «ciudad» en 
tres dimensiones. Cada conjunto de valores es 

La combinacidn de graficos y datos es 
importante para dar una visidn de 
p conjunto, sin necesidad de leer larges 
relaciones num6ricas« 


representado como una barra tridimensional, 
pero con una perspectiva tan acertada que 
aunque la columna de delante sea mas alta que la 
situada detras, ambas se reconocen. El resultado 
es un mapa con multiples «edificios» 
representando cada uno el valor correspondiente 
en cada eje, de manera muy atractiva. Una vez 
mas, la eleccion de tipo de trama y color es 
fundamental para la salida impresa si no se 
dispone de impresora a color, para evitar la 
confusion de valores por solapamiento entre unos 
y otros. 

Por simbolos. De los mas curiosos, si no el mas, 
aunque con algunas limitaciones. Solo utiliza un 
conjunto de valores para realizar la grafica, 
que puede realizarse horizontal y verticalmente. 
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del Gem Graph. 


frcmes nientes 
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Es como un grafico de barras, que en lugar 
de utilizar estas, utiliza simbolos para 
representar valores. El programa pone a 
disposicion del usuario simbolos de hombres, 
mujeres, barcos, el signo dolar, un dibujo (sic) de 
una fabrica, una casa, una caja, un avion, un 
carro de la compra, un camion, un coche y un 
autobus. En cada linea de la grafica se puede 
tener cada uno de estos simbolos, que en el 
punto extremo pueden estar dibujados solo en 
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parte, segun el valor alcanzado. Este es un tipo 
de grafica por lo menos curiosa, si no 
francamente original. 

De mapas. Y esto, es lo que podrfamos llamar 
la repera. Con Gem Graph viene una utilidad 
llamada Mapped, que permite dibujar mapas. 
,;Para que? Es lo que nos preguntamos al 
empezar a probar el programa. En un programa 
que esta disehado para realizar graficos 
empresariales, dibujar mapitas queda un poco 
fuera de lugar, ^no? Bueno, pues no. Porque 
resulta que si realizamos un mapa, o 
aprovechamos uno de los dos mapas que vienen 
de ejemplo, uno de Estados Unidos y otro de 
Europa ,;Hispanoamerica? ,-Que es eso? Resulta 
que podemos definir las zonas segun los valores 
dados, de manera que se distingan por el trazado 
o color. Realmente brillante, aunque con un uso 
limitado a determmadas aplicaciones. 


Herramientas 

Para realizar y combinar todo esto, que no es 
poco, el programa proporeiona multiples 
herramientas de trabajo. El cursor, dominado 
como es logico por el raton, puede seleccionar o 


El Gem Graph incluye 
una opcion 
que permite instalarlo 
en el disco duro 


bien texto, o bien una determinada parte de un 
grafico. Esto puede ser un determinado valor, 
una recta o conjunto de ellas, o un grupo de 
valores. 

Empezando por el texto, aunque el programa 
coloca y centra automaticamente todos los tftulos, 
estos se pueden modificar a voluntad. Con el 
cursor en modo texto basta con «marcar» (pulsar 
el boton izquierdo del raton) encima del texto 
que se quiere modificar. para que este quede 



Distintas posibilidades de dar formato a una pagina en Gem 
Graph. 



«limitado» en sus cuatro esquinas. Una vez 
seleccionado el texto, se puede modificar su 
tamano, tipo de letra, se puede enmarcar o 
subrayar, o bien moverlo al lugar deseado. Se 
dispone de dos tipos de letras basicos, con los 
estilos habituales en negrita o italica, asf como 
seis tamanos diferentes de letra, que resultan mas 
que suficientes para casi todas las necesidades. 

En cuanto a los graficos, esta opcion resulta 
mas que importante en muchos de ellos. Se 
puede marcar un punto, una lfnea o barra, o un 
grupo de valores. Una vez marcados, se puede 
elegir entre ocho colores diferentes, y una vez 
elegido el color se opta por un trazado entre 18 
diferentes. A la hora de imprimir, la eleccion del 
trazado es importantfsima, dado que los colores 
no valen para nada. La eleccion adecuada de 
trama logra una diferenciacion optima entre 
distintos grupos de valores. 

Para la opcion de mapas, el programa incluye 
la posibilidad de elegir la escala del dibujo, asf 
como el numero de areas dentro del mapa que se 
pueden diferenciar, pudiendose despues elegir las 
tramas de cada uno de ellos, segun los valores. 

Mas opciones 

Y hay mas cosas. Por supuesto, las habituales 
opciones para grabar o recuperar un fichero del 
disco, asf como para cargar mapas o sfmbolos, 
que pueden haber sido realizados con otro 
programa Gem, y la habitual salida a impresora 
por medio del programa Output, que a nosotros 
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La union del textoy los graficos son una de las mejores 
caracteristicas del Gem Graph. 


en la prueba nos colgaba el ordenador 
irremediablemente una y otra vez. No obstante, 
al ser esta una version de prueba, es un defecto 
que estamos seguros se solucionara antes de 
ponerlo a la venta. 

En cuanto a edicion del dibujo, se pueden 
cortar partes del mismo, copiar, pegar, eliminar, 
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insertar y hasta girar los datos del mismo. 
Opciones para todos los gustos... 

Naturalmente, tambien se puede ampliar o 
reducir los dibujos, poner una cuadrfcula o trama 
en la pantalla para poder tener puntos de 
referenda, y otra cosa muy importante, que es 
elegir el tamano de la pagina en la que se va a 
imprimir y el tamano del mismo dentro de esa 
pagina. Es muy de agradecer que se pueda elegir 
entre seis tamanos de pagina, y borde, y dentro 
de esto, pero por separado, tres tamanos 
diferentes de dibujo. Ademas, se pueden obtener 
reglas en pulgadas o centimetros, segun gustos, y 
se puede orientar el dibujo de modo vertical u 
horizontal, es decir, que este se dibujarfa 
transversal al sentido de impresion. 


Resumen 

Simplemente, si necesita presentar informes 
con muchos datos numericos, y no quicre resultar 
pesado, prefiriendo dar una imagen que resuma 
los numeros con un golpe de vista, este es su 
programa. Es mas que dificil pensar un grafico 
que no se pueda obtener de manera satisfactoria 

No hemos podido echar un vistazo al manual 
de instrucciones, pero el programa es sencillo de 
manejar sin el, con lo que este, por malo que 
sea, siempre resultara una ayuda. 
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Petmti pot Section 


Grafico 

tridimensional de 
barras en color. 
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£HACIA donde 

VAN SUS NEGOCIOS? 

TECNICAS DE PRONOSTICO ESTADISTICO 

CON UN PCW 

por Jose Manuel Diaz Garcia 

La estadistica, afortunadamente, sirve para algo mas que 
para mostrar el mdice de parados, o el numero de 
personas que no pagan a Hacienda. Indica, con 
sorprendente verosimilitud, las tendencias de algo que se 
pueda medir en forma cuantitativa, numerica. Desde un 
punto de vista matematico, aunque no es de especial 
relevancia para el usuario, la tecnica se llama Regresion 
multivariante. El programa, concretamente, realiza una 
serie de analisis sobre ficheros, que creemos pueden ser de 
utilidad para estudiar hacia donde tienden sus datos. 
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DESCRIPCION GENERAL 
DEL PROGRAMA GF_ 


El programa de gestion de ficheros se utiliza 
para crear y operar sobre ficheros creados con la 
fmalidad de analizar los datos mediante regresion 
multivariante. 

Las opciones se activan pulsando la primera 
letra de su nombre respectivo. Si se desea crear 
un fichero se pulsa S, para manipularlo M, etc. 

Los ficheros se crean directamente en el disco 
de memoria, con lo que no se pierden, a menos 
C]ue se apage el ordenador. 

Carga del modulo de gestion de ficheros 

Para acceder al modulo de gestion de ficheros, 
al que llamare GF, se selecciona en el menu 
principal la opcion 1 y se acepta pulsando S. 

A continuacion se pide que se inserte el disco con 
los programas para cargar el programa de gestion 
de ficheros. 


Opciones 

Crea: se utiliza para crear ficheros. Lo unico 
que se pide es el nombre, que puede incluir 
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numeros y letras. No admite cualquier otro 
caracter. Los datos se van almacenando en un 
fichero rcsidente en el disco M. Si en la entrada 
de datos se cornete algun error y es necesario 
borrar o cambiar algo, se introduce en vez de un 
valor numerico la letra M, con lo que se entra en 
la opcion de manipular ficheros. Una vez dentro 
de esta opcion, con las teclas del cursor se 
visualizan las distintas entradas. Si, por ejemplo, 
estamos en la entrada 50 y necesitamos cambiar 
o borrar la numero 25, lo unico que tenemos que 
hacer es introclucir M y con «T» ir hasta el dato 
25 y pulsar ins o corl, respectivamente. Si se 
quieren ver los datos a partir del 25, se pulsa 
«i». Para salir, y seguir entrando datos, se pulsa 
sal. A continuacion. podemos entrar el dato 
siguiente al ultimo introduciclo. Cuando se ha 
terminado de introducir los datos del fichero, 
pulsamos S y se sale al modo de opciones desde 
menu. 

Manipula: a la opcion dc manipular se accede 
pulsando M. Se puede utilizar durante la 
creacion del fichero o directamente. Si se utiliza 
directamente y si sale, ecjuivale a entrar de nuevo 


GESflON DE FICHEROS (GF) 


VARIABLES UTIUZADAS 

cabimp$ 

Cabecera impresion resultados. 

esc$ 

Codigo de escape. 

acl$ 

Activa continuidad de Ifneas. 

dd$ 

Desactiva continuidad de lineas. 

ds$ 

Borra pantalla. Cursor a primera fila, 
primera columna. 

vi$ 

Video inverso. 

vn$ 

Video normal. 

an$ 

Activa impresion en negrita. 

dn$ 

Desactiva impresion en negrita. 

sb$ 

Posiciona cursor en caso de error. 

pi$ 

Pitido. 

forma$ 

Formato de numeros para impresion. 

men$ 

Informa de la no existencia del 
fichero. 

menl$ 

Informa de la existencia del fichero. 

mp$ 

Mensaje de error. 

fnlocate$ 

Localiza cursor. 

fnventana$ 

fncabecera3$, 

Define ventana de texto. 

fncabecero4$ 

mpl$(), 

Funciones de creacion de pantallas. 

mp2$() 

Matrices que contienen texto de 
opciones. 

wl $ 

Cadena de entrada en mayusculas o 
minusculas. 


wa% 

Valor ASCII de los caracteres a pasar 
a mayusculas. 

w2$ 

Cadena en mayusculas. 

opm$ 

Opcion menu principal. 

om% 

Valor ASCII de opcion menu 
principal. 

op$ 

Opcion menu secundario. 

me$(2) 

Nombre fichero. 

me$(3) 

Periferico de entrada. 

me$(4) 

Periferico de salida. 

flag°/o, flagl°/a 

Variables de control. 

ext% 

Longitud maxima nombre fichero. 

lo% 

Longitud nombre fichero. 

b% 

Contrador budes. 

a% 

Valor ASCII caracteres nombre fichero. 

a$ 

Caracter de teda pulsada. 

vafor$, valor! $ 

Campos ficheros. 

ur%, utl% 

Ultimo record fichero. 

urc% 

Ultimo record para operaciones con 
fichero. 

dc$ 

Respuesta a validacion de datos. 

num$ 

Cadena con valor numerico. 

va# 

Valor numerico a grabar en 
fichero. 

p!%, p2% 

Variables de control para impresion 
de resultados. 

fa$ 

Fichero antiguo. 
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en la creacion de ficheros. El manejo de las 
opciones secundarias se realiza como durante la 
creacion 



SUBRUTINAS 

230-240 

Genera pantallas. 

380-390 

Transforma a mayusculas. 

430-480 

Elige opcion. 

520-750 

Entrada de nombres y unidades de al¬ 
macenamiento. 

790-800 

Pasa del disco A al disco M, 

840-880 

Validacion de datos. 

920 

Abre fichero. 

960-1090 

Entra valores de fichero. 

1100-1190 

Comprueba que los valores entrados 
esten en la gama numerica. 

1230-1350 

Mueve cursor, borra, cambia. 

1390-1420 

Comprueba que no se cree un fichero 
con el mismo nombre de uno existen- 
te. Dirige la creacion de ficheros. 

1460-1490 

Comprueba la existencia de ficheros 
antes de la manipulacion o antes de 
anadir mas records a un fichero. 

1530-1570 

Graba datos definitivos con extension 
DAT en A o M. 

1610 

Borra fichero o ficheros en unidad es- 
pecificada. 

1650-1670 

Imprime fichero. 

1710-1720 

Muestra ficheros crados con programa 
en A o M. 

1760-1800 

Renornbra ficheros. 

1840-1850 

Sale a menu principal. 

2020-2040 

Tratamiento de errores. 


Sale: se pulsa S y si se responde con S a la 
pregunta de «Datos correctos (S/N):», se vuelve 
al menu principal. En este podemos seleccionar el 
modulo de regresion multivariante para hacer el 
analisis estadistico de los datos. 

Graba: se pulsa G. Se proporciona el nombre 
del lichero y la unidacl en la que se desea grabarlo. 

Bona: se pulsa B. Se introduce el nombre del 
fichero y la unidad de almacenamiento. 

Anade: cuando se anaden datos a un fichero, 
tenemos dispombles las mismas opciones que en 
la opcion area. 

Imprime: imprime un fichero. 

Directorio: muestra los ficheros de la unidad 
especificacla que se creen con el programa cle 
gestion de ficheros. 

Renornbra: se utiliza para cambiar el nombre de 
un fichero creado con la opcion crea. Se necesita 
entrar la extension del fichero que puede ser sta o 
dat. En el disco A: no se pueden tener ficheros 
con la extension sta. 


DESCRIPCION GENERAL 
DEL PROGRAMA ELIO 


El programa de regresion multivariante esta 
realizado de forma que se obtenga la maxima 
precision en los resultados y que se pueda tratar 


PROGRAMA PRINCIPAL 


m 

20 REN CARGADOR. Agsoto 1.986. Jose 
«anaei 6:az Gama 

30 m 

40 op$=" ’;esti-CHR$(27?::t!s$=esc4 
♦’E *+esct+‘H*:vi$=escft*p*:vn$=est? 
'tj';pit=CHRf(7> 

50 3tf ?«lQEate*(vS,fiS)=escl+*Y**CH 
Rli32+v*)+CHR$( 32+hl) 

60 DEF FNventana$(ptvl,pcvl,uf¥*,ut 
v*) S esc$+" X *+CHW (32+pf vX)+CHRt (32* 
pevSJ+CHR*< 32+ufvl)+CHR$(32+ucvl? 

•70 PRINT FNventanat(0,0,32,90)} 1 1s f 
80 DEF FN cabezeraf(a$,bf,cf)=af+$T 
RINGf(65,b$)+c$ 

90 PRINT FNlotateMlO.iOivifjFNcab 
ezerattCBRf(ISO) ,CKR«154).CHRf <1S6 
)) 

100 FOR b?=l TO 7:PRINT FNlocatetU 
0*M, 10); FNcabeieral(CHR$( 149). CHR4- 
<323,CHR$<149)9:NEXT 
110 PRINT FNlocatef{18,10)jFNcabezs 
ra$( CHRf C147), CHR.ff 1-543 , CHRf C 153)) 
120 PRINT FN1oc a tef(8,14)j vnt 5 * GEST 


ION St FICHEROS V REGRESION MTIVA 
RIANTt vl.O FCW82S&";vi$ 

130 PRINT FMo|jte«X2.25)l*l. 6es 
iion pe ficheros" 

140 PRINT FNlocatef(13,25)5*27 Reg 
reaion auHivariartte' 1 
ISO PRINT Ffilocate$(14,25)s Sal 
it a CP/If 

160 PRINT FNlocatef(16,25>J0jfi® 
PULSE NUMER0 OPCION 

170 GOTO 260 
180 REN 

190 REM TRANSFORM A MYOSCOLAS 
200 REM 

210 w2$=";wjX=96:w=-32:w!M£N(wl$ 
):F0R bt=l TO *ll:*al=ASCaiI2$C»l$ ) 
bM»;IF ual)«jl AND wal<wjX+27 TH 
EN *al=*al+» 

220 »2f=s2t+CHRftval);NEXT;RETURN 
230 REM 

240 REM ELIGE OPCION 
250 REM 

260 PRINT FNlocateff16,25);:op»f=" 


: opB$=INPUTfC!): o»l=VALCop#$? 

270 IF orf<l OR o«*>3 THEN 130 
250 PRINT Fjilocate*U6,24)50*15’. S 
ELECCI0N C0RRECTA (S/N)":a$=IN p UTs( 
l);«i$=a$:60S08 21u;a$=w2i;IF a$<)“ 
S s THEN 160 

290 IF ob*<> 3 THEN PRINT FNlocatefl 
16,25)5’INSERTS DISCO CON PROGRAMS 
Y PULSE P *:a$=’*:a$=INPUT$ 
Cl>;wlf=at:6QSUB 210Saf=w2t:IF at<> 
M f THEN 290 

300 IF oel=I THEN progt=*A;eF*:»enf 
s'CARfiANOO MODULO GESTION FICHEROS 

H 

310 IF 01851=2 THEN progt="A:ELI0":ae 
ni=*CAR6AND0 MODULO REGRESION 

i: 

320 IF o#*=3 THEN PRINT vnfickkSY 
STEM 

330 PRINT FNIocatef116,2-5)5aenf 
340 PRINT vn$; 

350 RUN progf 
360 END 
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el mayor numero posible de datos, sin perder por 
ello la rapidez necesaria para que sea operativo 
en el analisis estadfstico. 

Por estos motivos, tanto las entradas como las 
salidas se realizan en doble precision. Lo mas 
innovador lo constituye el hecho de utilizar el 


REGRESION MULil VARIANT! (ELIO) 


VARIABLES UTILIZADAS 

men$, 

men IS 

Informan de las operaciones que se 

esc$ 

Codigo de escape. 




realizan. 

ds$ 

Borra pantalla. Cursor a primera fila, 

forma$ 

Formato para presentation de resulta- 


primera columna. 




dos. 

ad$ 

Active continuidad de lineas. 

va# 

, val#. 


dd$ 

Desactiva continuidad de lineas. 

va2#, va3# 

Almacenan los valores lefdos en los 

vn$ 

Video normal. 




ficheros. 

vi$ 

Video in verso. 

flag%, flagl%, 


pi$ 

Pitido. 

flag2%, 


an$ 

Activa impresion en negrita. 

flag3% 

Variables de control. 

dn$ 

Desactiva impresion en negrita. 

b%, c%, d%, 


a$ 

Recoge pulsacion de teda. 

e%, f% 

Variables de contadores. 

r0$ 

Columna. 

v% 



Codigo ASCII teda pulsada. 

rl$ 

Coeficiente. 

Estadfstico!) 

Valores de la t-Student al 95%. 

r2$ 

Desviacion tipica. 

tstudent 

Valor de la t-Student utilizado en cal- 

wl $ 

Cadena de entrada en minusculas o 




culos. 


mayusculas. 

fnlocate$ 

Localiza cursor. 

w2$ 

Cadena de safida en mayusculas. 

fnventanaS 

Define ventana de texto. 

wa% 

Valor ASCII de los caracteres entra- 

fncabecera$ 

Formato de pantalla. 


dos en wl$. 

fncabeceral$ 

Formato de pantalla. 

lo% 

Longitud cadena de variables inde- 

fncabecera2$ 

Formato de pantalla. 


pendientes. 

men$ 

menl$ 

Mensajes de error. 

nvd$ 

Nombre variable dependiente. 

p0$() 


Matriz texto pantalla selection varia- 

cvi$ 

Cadena de variables independientes. 




bles. 

ext$ 

Extension fichero. 

pi$0 


Matriz texto pantalla coeficientes. 

ud$ 

Unidad de almacenamiento. 

P 2$() 


Matriz texto pantalla medidas y con- 

ur% 

Ultimo record fichero. 




trastes. 

nv% 

Numero de variables independientes 

mv 

$ 

[) 

Matriz de variables independientes. 


entradas por tedado. 

r!# 

1 


Varianza de las perturbaciones. 

nvi% 

Numero de variables independientes 

rl# 

2 


Desviacion tipica de las perturbacio- 


para regresion. 




nes. 

tl% 

Numero de registros del fichero de 

rl# 

3) 

Suma de cuadrados de errores. 


menor tamario. 

rl# 

[4) 

Suma de cuadrados totales. 

t% 

Numero de registros a leer de fiche- 

r2# 

2) 

Valor de F. 


ros. 

r2# 

3 


Coeficiente de determinacion. 

td% 

Datos totales a utilizar en calculos. 

r2# 

4 


Coeficiente de determinacion corregi- 

sy# 

Sumatorio de los cuadrados de la va- 




do. 


riable dependiente. 

r2# 

5) 

Rafz del error cuadratico medio. 

syl # 

Sumatorio de los valores de la varia- 

r2# 

6) 

Porcentaje de la rafz del error. 


ble dependiente. 

r2# 

7} 

Error estandar. 

sy2# 

Cuadrado de sy#. 

r2# 

8 


Residuo medio porcentual. 

my# 

Media de la variable dependiente. 

r2# 

9 


Durbin-Watson. 

np% 

Numero de pantallas para presenta- 

r2# 

10) 

Rho estimado. 


cion residuos. 

r2# 

ID 

Razon de Von Neuman. 

nfop% 

Numero filas ultima pantalla presen- 

e#( 



Matriz de coeficientes. 


tacion residuos. 

sb# 

) 


Matriz de desviaciones tfpicas. 

pf% 

Primera fila. 

i#{) 



Lfmites inferiores del intervalo de con- 

pc% 

Primera columna. 




fianza. 

uf% 

Ultima fila. 

s#() 


Lfmites superiores del intervalo de 

uc% 

Ultima columna. 




confianza. 

rc$ 

Opcion menu principal. 

z#0 


Matriz X'Y. 

re% 

Valor ASCII de opcion menu principal. 

cor! #(), 


reim$ 

Opcion menu impresion. 

cor3#() 

Matrices de apoyo para calcuio ma- 

reim% 

Valor numerico de la opcion de im- 




triz correlacion. 


pres ion. 

b#(,) 


Matriz productos. 

nr% 

Numero de fichero. 




Matriz in versa. 

valor$ 

Campo fichero. 




Matriz varianzas covarianzas. 

valorl $ 

Campo fichero. 




Matriz de correlacion. 
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10 REM RE6R.ES I ON MULTI VAR I EN'TE. Ve 
rsion 1.0. Agosto 1986. Joss Manuel 
Diaz Garcia. 

20 REM 

30 ON ERROR GOTO 3660 
40 OPTION EASE 1 

60 WIDTH 90:WIDTH LPRINT 125:PRINT 
C,HR$(27);"0" 

60 e5ct=CHR$(27):acIt=esci+*v”:dcI$ 
=ssct+"#":clst=esc$+"E"+esct+*H”:vi 
i=e5C$+"p*:vn$=esc$+"q":pil=CHR$(7) 
:anS-esc $+"E":dn$=esc ?+" F":senl$=pi 
?+vi?+" ENTRADA INCORRECTA. Pulse t 
ecla "+vn$:PRINT ad$ids$ 

80 b%=0:c*=0:dX=0;ex=0:f X=0:nvX=0:n 
viS=o:k*=0:t*=0:td*=o;va#=0:va0#=0: 
vatl=0:va2*=0:va3»=0:pfl=0:pc?=0:uf 
5S=0:udf=0:»aH=0:fIaglS=0:fIag2M!:f 
Sag3X=0; rOi=*Colusna*: r U=*Coef icie 
nie”:r2$="0esviacion tipica" 

90 REM 

100 REM FUNCIONES 
HO REM 

120 DEF FNIcc a te$< vS,hS)=es 1 1+”Y"+C 
HR?(32+vX)+CHR?< 32+hX) 

130 DEF FNventanaKptvX,ptvX,ufvX,u 
cvX)=est?+*X*+CHRi(32+pfv*)+CHR${32 
+pcvX)+CHRt(32+ufvX}+CHR?(32+ucvX): 
PRINT FNventana?(0,0,32,90) ; 

140 DEF FN cabszerai?(a? l bf,c$,dt)= 

a?+STRING$(i2,b?5+c$+STRINGI(23 1 b?) 

+1 l+STR INGK 51, b?) +dt 

ISO DEF FN cabezera2$(a$,b?,c?,d$)= 

a$+$TRINGK13,b$)+t$+8TR'INGK22,b?) 

+c ?+$TR IN6K 22, bl)+c ?+STRING? E 22, b? 

)+d? 

160 DEF FN cabezera?Eaf,bt,c$)=a$+S 
TRiN6?(88,b?)+e? 

170 PRINT vi$JFNlocatef(10,10); :PRI 

NT SPCC69):PRINT:PRINT FNlocateK.il 

,10);TABi17);"REGRESION MOLTIVARIAN 

TE version 1.0 PCW82S6 

":PRINT:PRINT FNlocate?(12,10);SPC( 

695;vni 

180 REM 


190 REM CONSTAHTES 
200 REM 

210 DIM !svil(20),b#(20 l 20),yy*(20) l 
it(2W ,cofl*(20),cor3*(20),r11(4),r 
2 #t11),eft 20),p«(20),Sb#(20!,Estadi 
sticoOO), 11(20), s*(20),p2?(ll), pi? 
(4),p0*(3> 

220 REM 

230 DATA "Vafianza de las perturbac 
i ones V'Oesviac ion iipica","Suma cu 
adrados erroresVSusa cuadrados to 
tales" 

240 RESTORE 230:F0R bid TO 4:READ 

pS?(bi):NEXT 

250 REM 

260 DATA "t-Student al 9SX\"FVCo 
ef it sente detersunac ion*, "Cost iden 
te determinaciors corregidoVRaiz e 
rror cuadratico aedioVPorceniaje 
raiz error","Error estandar'/Resid 
uo sisdio perceptual","Durbin-Watson 
","Ro esti»adO s , s Razon Von Neuman" 
270 RESTORE 260:FOR b!=! TO 11:READ 
p2*(bX)*.NEXT 
280 REM 

290 DATA 12.706,4.303,3.182,2.776,2 
§71,2.447,2.365,2.306,2 262,2.228, 
2.201,2.173,2.160,2.145,2.131,2.120 
,2.110,2.101,2.093,2.086,2.080,2 07 
4,2.069,2.064,2.060,2.056,2.052,2.0 
48,2.045,2.042 

300 RESTORE 290: FOR bid TO 30: READ 
estadistico(bS):NEXT 
310 REM 

320 DATA "Urndad de aliisacenadento 
:V'Nosifare de la variable 
dependiente : VNoitbres de variable 
s independientes separados per cosa 
s (@axi»o 19 variables):" 

330 RESTORE 32O:P0R bXd TO 3:READ 

pO?(bi):NEXT 

340 REM 

350 REM BIFURCA 
360 REM 
370 GOTO 530 
380 REM 


400 REM 

410 w2?="":dx=96:tp-32 :«ix=lene wii 
):FDR bSd TO wi?:«a?=ASC(MID?(«l?, 
bi,l)):IF waXXwjX AND waXCwjX+27 TH 
EN »aX-waX+w 

420 w2?=s2l+CHR?EaaX):NEXT:RETURN 
430 REM 

440 REM CREA PANTALLAS 
45o REM 

460 PRINT FNlocate?(0,05;FNcabezera 
2?(CHR?(ISO),CHR?(154),CHR$(158),CH 
R?(156)) 

470 PRINT FNIocate?(l,0);:F0R bXd 
TO 10IPRINT FNcabezera2t(CHR?(1495, 
CHR?<32),CHR$(1495,CHR$(149)):NEXT: 
PRINT FNcabezera2?E CHRK147),CHR?f1 
54), CHR?( 155), CHRK.153)): RETURN 
480 PRINT FNIocatefC12,0);FNcabezer 
a? C CHRK 150) ,CHRK 154) ,CHR?( 156)); 
490 FOR vXd TO ufX:PRINT FNcabezer 
a? (CHRK 149) ,CHR$(32) .CHRK 149) ):NE 
XT: PRINT FNcabezeraKCHRK 147), CHR? 
(154), CHRK 153)): FOR bX=l TO bfX:PR 
IKT FNcabezeraKCHRK32),CHR?i32),C 
HR?i32)5:NEXT:RETURN 
500 REM 

510 REM SELECTIONA VARIABLES PARA R 

E6RESICN 

520 REM 

530 PRINT FNventanaK0,0,32,905 iFNI 
ocateK0,0)iFNcabezera?(CHR$(150),C 
HR?(154),CHRK 156))?:ufX=20:GOSUB 4 
90: PRINT FNlocateK0,25); “SELECCION 
DE VARIABLES PARA REGRESION* 

540 PRINT FNventanaK2,4,20,81); :F0 

R bid TO SIPRINT FNlocateKl+bX,0) 

;pOKbX):NEXT 

550 REM 

560 bXd 

570 PRINT FNlocate?(bX,05;*Volver a 
MENU PRINCIPAL (S/N) : *;: 

a?=INPUTt(1):»lt=a?: GOSUB 410:a?=«2 


580 IF a?="S" THEN PRINT FNlocateK 
l l O)jvi?i*INSERTE DISCO CON PROGRAM 
- -| 

14 A MS TR A1) Scmanal 


disco M como si fuera memoria. Despues de 
seleccionar las variables se pasan al disco M y se 
generan las matrices necesarias para realizar la 
regresion. Si durante este proceso se detectara 
algun error, el programa informant. De esta 
forma, no es necesario climensionar una matriz, 
C]ue, por ejemplo, si se efectuara una regresion 
con 9 variables explicativas y 100 datos cada una, 
tendria una ocupacion de memoria de mas de 
8.000 bytes. Aquellos afortunados que dispongan 
de un PCW 8512 podran realizar regresiones con 
mas datos por variable y probar a dimensional' 
las matrices del programa con Tndice 20 a un 
numero mayor. 


Carga del modulo de regresion 
multivariante (ELIO) 

Para acceder al modulo de regresion 
multivariante al que llamare ELIO (Estimadores 
Lineales Insesgados Optimos), se selecciona en el 
menu principal la opcion 2 y se siguen las 
instrucciones de la pantalla. El proccso termina 
cargando el modulo de regresion multivariante. 

Seleccion de variables 

En la pantalla de seleccion de variables \ 

podemos volver al menu principal. Unidad de 

90 REM TRANSFORMA A MAYUSCULAS 










almacenamiento se reparte entre M y A. El 
nombre de la variable dependiente acepta 
numeros y letras, pero no extension. Si despues 
de introducir el nombre no se puede introducir la 
cadena de nombres de variables dependientes es 
porque cometimos algun error al dar el nombre 
de la variable dependiente. 

Nombres de variables independientes separados 
por comas (maximo 19 variables). Acepta lo 
mismo que en la entrada anterior, ademas de las 
comas. 

Despues de realizar estas operaciones se 
confirman pulsando S. El programa comprueba 


Mundo del 

PCW 


la existencia de los ficheros en la unidad que se 
especifica, los pasa al disco M, si no estan los 
datos en el, y va indicando los calculos en que 
csta ocupado el ordenador. Cuando emita pitidos 
durante la realization de los calculos es que se 
producen errores de Overflow. Esto puede 


AS Y PULSE P"ivn$;:a$=IltfUT*(l):w!t 
=a$:G0SUB 410:at=v2*:lF a$= B P" THEN 
RUN B A:CftRGADOR" ELSE 580 
590 IF a$0"N" THEN PRINT:GOT0 560 
600 PRINT FNlocate$(2,40)iSPC(l)iFN 
iocate$(2,40)5:ud$=INPUT$<1):wl$=ud 
$:G0SUB 410:ud$=w2t;IF udt="H" OR u 
d$="A" THEN PRINT ud$i ELSE PRINT p 
iljlGOTO 600 
610 ' 

620 PRINT FNlocatet(3,40)idtl$;SPC( 
255)5 FN1otatet(3,40>»:LINE INPUT nv 
d* 

630 w1t=nvd*:60SUB 410:nvd*=w2$:PRI 
NT FN I oc a Let (3,40); nvd$r 4 f UgK=0: F0 
R bS=l TO LEUtnvdiJSaWflMtnvdi.bl 
,l):vi=ASCCa$);IF at*V OR a*=*\* 
OR at="! ” THEN flj|l*S 
640 IF vi<48 THEN flagid 
650 IF vi>90 THEN f lagS6=l 
660 IF ‘A>57 AND vKE5 THEN flagid 
670 NEXT 

680 IF flag**! OR LEN(nvd$)>8 THEN 
PRINT pi$;:G0T0 620 
690 REN 

700 PRINT acl*»:nv*d:PRINT FNIocat 
ei (6,0); ad $; SPC (255>;FN1ocatetC 6,0 
);:LINE input cvit:wi$=cvi$:G0SUe 4 
I0.‘tvi$=w2t:PRINT FNlocate$(6,0);cv 
it 

710 loMEN(c#|-)-:lF WD$Ccw*.M. 
1)=“," THEN PRi'WlNMate$f 18,25)1 
aenlf,: a$=INPUT$( 1):PRINT FNIocate* 
(18,25)|SPC(50);FNlocate$(18,25);;6 
0T0 700 

720 b*="":FQR bid TO LEN(tvi$):a$= 
NlD${cvil,bX,l):vX=ASC(at):b$=bl+a$ 
730 IF vS<44 THEN a*=”i B 
740 IF v£>90 THEN 

750 IF v%>57 AND vi<65 THEN al= B !* 
760 IF v%=45 OR v£=47 THEN at=’l“ 
770 IF a$="!" OR as$='\* OR 8$=” 0 
R at="." THEN PRINT FNlocateK 18,25 
);«enl$i:a$=INPUT$(1):PRINT FNIocat 
e$(18,25);SPC(50);FNlocatef(i8,25); 
:b$= eo :G0T0 700 


780 IF al=V THEN aviMnvXKEFW 
bl, LEN(bt)-15:bt=";nvl=nvi+l: IF LE 
NEsvit(nvS5)>8 THEN PRINT FNIocate* 

«18,25)jsenil;:a*dNPUT*C 1);PRINT F 
NIocate*( 18,25) jSPCtSO) iFNlocateK 1 

8.25) ;:GOTO 700 

790 IF nv£>19 THEN PRINT FNIocate*) 
17,20);"DEilASIADAS VARIABLES.Pulse 
tec la'!:atdNPUT*<1):PRINT FNIocate 
$(17,20); SPC(32 > .* b£=0: GOTO 570 
800 NEXT:IF LENCcvif)<=8 AND INSTPf 
cvif,",")=0 THEN #vi*(nvS)=cvit:G0TQ 
810 IF LENCcvi*)>8 AND lNSTR(cvi*, B 
, !! )=0 THEN PRINT FNIocatef(18,25);f» 
enl$;:a$=INPUT$U):PRINT FNIocate*! 

18.25) ;.SPCf 50); FNIocate*! 18,25) j :S0 
TO 700 

820 bf=0:loS=LEN<tvi$):a$=*":fflvi$(b 
v*)=":«HILE a$ < a$=H I Of < c v i $, 1 

oi-bi,1): bi=bi+ 1: V END: ffi¥ i t (n v*)=H 10 
*(cvi*,lo*-bi+2,bi) 

830 FOR cbl TO nvS: IF ffivi*!ci)=" B 
THEN PRINT pi$5:M=i:»T0 570 
840 NEXT 

850 PRINT pifJFNlocate*!18,25);vi$; 

" Datos correctos (S/N): "|vn$f:af 
=INFVT$( 1):PRINT FNIocate*! 18,25)}S 
PC(25); FN1oca tell 18,25);:v1*=a*:60S 
US 410:at=»2$:IF a*= B N B THEN FOR k% 
d TO nvS: m* (bi)= BB : NEXT: c vi****; 
bX=0:60T0 S70 

860 IF at<>*5* THEN PRINT:GOTO 8S0 
870 REM 

880 REM COMPRUEBA SI EXISTEM LOS FI 
CHER0S EN LA UNIDAD ESPECIFICAOA 
890 REN 

900 isen*=pi*+vi$+ B C0HPR0BAND0 EXIS 
TENCIA FICHEROS EN UNIDAD °+ul+vr,i; 
PRINT FNlocatef(18,10)j»en$j 
910 udt=ud*+":”:IF udf="N: B THEN ex 
t$=".STA* ELSE exit 5 ".DAT* 

920 OPEN V.i.udt+iwdt+ext*:FIELD 
1,8 AS valor$:G£T 1,l:urX=VAL(valor 
i):CLOSE l:IF ur£=0 THEN bid Pm I! 
bi)=nvdt:60TG 970 

930 FOR bid TO nvX.'OPEN V,l,ud*+ 


®vit(b*)+ext$:FIELD 1,8 AS valor*:G 
ET 1,1:uri-VfiLivalor*?:CLOSE 1 
940 IF bid THEN tli=uri 
950 IF uriOill AND uri>0 THEN PR IN 
T: PRINT FN 1 o c at ef (19,1); v i $; ®F I CHER 
OS DE DISTIHT0 TAKAVO. Pulse tec la 
*:vn$;: atdNPUT*!1):PRINT FNIocate 
1C 19,1); sen$; 

960 IF uri>0 AND uriCtli THEN ll=ur 
lltlidi 

870 IF uri=0 THEN RILL ud*+»vit(bi) 
+ex t *: se n *=p i *+v i *+» v i *! b i)+ 0 NO EX 
ISTE EN UNIDAD "+ud*+ B Pulse ted 
a dvn$:PRINT Allocate*! 18,0)}»e 
n$;:aldNPUT*!1): PRINT FNIocateJC 13 
,03 5 SPC(80);:b£=1:60TO 570 
980 NEXT 
990 REN 

1000 REN ASIGNA TAMAYO FICHEROS,NVA 
RIA8LES 

1010 REN k=n variables entradas, t= 
tasalo fichero, nv-nvi-nvariables i 
ndependientes 
1020 REN 

1030 nvii=nvi+l:ki=nvi:tidli:tdi-t 
l-i 

1040 IF tdXJnvil THEN 1070 
1050 IF nvii>*tdi THEN PRINT vi$;pi 
i;FNlocatet(18,1);"SE NECESITAN FIC 
HERDS DE TAMAYO MAYOR PARA HACER ES 
TA REGRESION. INTR0DUZCA DISCO CON 
PROGRANAS Y PULSE P”; 

1060 a$=INPUTI(1):wlf=a$: G0SUB 410: 
a$=#2$:IF atO'P* THEN 1060 ELSE RU 
N r 'A: CARGADOR® 

1070 FOR b£=nvii TO 2 STEP -llavil! 
bi)=i»vi$(bi-l):NEXT.'fflVi$(l)=“unidad 

si 

1080 

1090 IF udi=*A:* THEN GQSUB 1150 
1100 IF udl=*H:* THEN G0SUB 1180 
1110 GOTO 1220 
1120 REN 

1130 REN PASA DEL DISCO A AL DISCO 
If 
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suceder cuando se seleccione la opcion de matriz 
de correlacion. 


Seleccion de resultados 

Pulsando los numeros correspondientes 
aparecen los resultados. Cuando necesita realizar 
algun calculo previo a la presentation informa. El 
programa proporciona datos suficientes para 
estudiar cualquier fenomeno mediante regresion 
realizada por el metodo de mtnimos cuadrados 
ordinarios. 


Coeficientes: la informacion general seria Y— 
A + B x 1 (...) Bn x n. Si estamos tratando de 
explicar el Consumo de Carne (CONCAR) en 
funcion del Consumo de Pescado y de la Renta 
Familiar (CONPES y REFA, respectivamente), 
la formulacion seria: 


En la columna Coeficientes aparece como 
constante el valor de A, y los B serian los valores 
que aparecen en la fila con el nombre de cada 
variable. Las desviaciones tipicas de esos 
coeficientes aparecen en la columna desviacion 


CONCAR = A + Bl*CONPES + B2*REFA. 


1140 REM 

1150 ®eni=pil+vil+" PASANDO FICHERQ 
S A UNIDAD H *+¥*$:PRINT FNlocate$f 
13,0 > j SPC < GO)5 FNIoc at st(19 s 0 > 5:PRIH 
T FNIocateK13,03;,«en$i 
1160 fflvi1> =nvd$:FOR bX=l TO will 
OPEN ”r", 1,"A:(bX)+". DAT":F1E 
L0 1,8 AS valorS:GET I,i:urX*VAL(va 
loril;OPEN s r", 2, "K:*4»vi*(bX)**.ST 
A*:FIELB 2,8 AS valorItl-LSET valorl 
*=STR$(urS):PUT 2,1 
1170 FOR ci=2 TO urX:6ET l.clivalt* 
CVDtvalorl) :LSET valorS$=NKBI(val#> 
:PUT 2,cl:NEXT:CL0SE 2:CL0SE liNBT 
1180 »vi$(15 =*UNiDAO*:OPEN *rM,*« 
: !, +rvl$(l)+",STA":F!EL0 1,8 AS valo 
rllLSET valor$=STR$f.tirS);PUT UlFS 
F; b%-2 TO urX;val#=llLSET valorl-MK 
Dll vail);PUT 1.b%:NEXT:CLOSE l:ud$= 
"Ml":RETURN 
11 SO RES 

1200 REM GENERA X'X 
1210 REM 

1220 ®enl=pii+vii+" SENERAN00 NATRI 
Z PR0DUCT0S "+vn$:PRlNT FNlocaielU 
3,0>;SPC'.60)iFNlocate$U3 t 0)if»entf 
1230 FOR bX=l TO nvit:OPEN V.l.ud 
i$(bX)+". STA" I FIELD 1,8 AS valo 
r$ 

1240 GET l,i:url=VALCvalorl) 

1250 FOR cl=bl TO nviX 

1280 IF cl=bl THEN n!X=l ELSE nfX*2 

lOPEN V,nf*,ud$+«vi${ct)+*.STARE 

IELD nf%,8 AS valorll 

1270 FOR iU2 TO tl:GET EdSlvaiNC 

VQ(valorl) 

1280 IF cl>bl THEN GET nfX,dX:va2»= 
CVD(valorll) 

1230 IF cl=bl THEN va2fr=val* 

1300 bittbX, cI) =M(bX, cX)+(va 1 »va2# 
i:NEXT dX:blfcX,bX)=bl(6X,cXl 
1310 IF iX>bX THEN CLOSE nfX 
1320 NEXT cX:CLOSE i:NEXT b% 

1330 OPEN •o*,a,-'H:X'X.SYS*:F0R bX= 
1 TO nviKFOR cX=l TO nvi*:«RITE #3 
,bttbl,cX):NEXT;NEXT:CLOSE 3 


1340 REM 
1350 REM X'V 
1360 REM 

1370 OPEN V,1,udl+nvdl+".STA":FIE 
LD 1,8 AS valorl 

1330 FOR bX=2 TO 111 GET i,b%:val#=C 

v0( valorl) lay^syS+ivaltTvdlD'.sy If 

=sy l#+vall.*NEXT1 sy2t s syl#tsy1 #: »yf= 
syll/tdX 

1330 FOR b%~l TO nviliOPEN V,2,ud 
$+»¥iTtb")+ 3 ,STA";FIEL0 2,8 AS valo 
rll 

1400 FOR c 2=2 TO LSI SET l,cX:val#=C 
¥B(valorl):GET 2,cl:va2f=CV0(valorl 
I) 

1410 z#tblva 1 #lva2f.':NEXT 
cl:CLOSE 2:NEXT bl:CLOSE 1 
1420 OPEN "o“, 3, u il: X ‘‘ Y. SY8": FOR bX» 
1 TQ nviX:WRITE *3,zf(bX):NEXT:CLQS 
E 3 

1430 REM 

1440 PRINT CHRKT.ir INVIRTIENDO KA 
TRIZ«? 

14SO FOR eS=l TO kX+l:cori#(eX)=b#( 

l,el)/WX:NEXT 

1460 REM 

1470 HEM CALCULO MATRIZ XKVERSA 
1480 REM 

1430 -OR dX*l TO kliP,yyf(dl)=0 
1500 of-bltdljl) 

ISIS IF pfOCt THEN 1570 

1520 FOR bS-dS+i TO kI*I:yyfCbXJ=l 

1530 IP bl(bl,15=0 THEN 1550 

1540 FOR cX=I TO kX+l:r#=bt(dX,cX): 

t4Cd4,cl) r bt(bl,cX):bi(bX J L*)-ri:NE 

XT:GOTO 1500 

1550 NEXT bX 

1560 PRINT vilP NO SE PUEDE INVERT 
IR LA MATRIZ. INTRODUZCA DISCO CON 
PROGRAM AS. Pulse una tecla *fwi$j;a 
ltiN?UTIU3;RUN *£a?gador* 

1570 FOR c?=l TO k11b»Cdl,cD=t4tdl 
,cl+l)/pi:NEXT:b#Xd? : .kl+l)=l/p#:F0R 
bl=l TO k?+i 
1580 IF M*dl THEN 1600 
1530 ri=b#(bl,l):F0R cl=l TO kX:bl( 


bS, cX)=b#(bX, tX+D-rWWKdf, cl) :NEX 
T: b# ( bl ,4: X+1) =- r f lb* (dX, k 1+ 1 ) 

1600 NEXT:NEXT 

1610 FOR dS=kX TO 1 STEF -l:j#=yv« 
dX) 

1620 IF 3#=0 THEN 1640 

1630 FOR bX=l TO kX+l:rl=bKbX,dX>: 

b*{bX,dX)=bi(bX,£X):b*(bX,cX)=r#;NE 

XT 

1640 NEXT 

1650 OPEN *o*,3,*H:INVX’’X.SYS”:FOP 
bl=l TO nviXlFOR cl=I TO nviX:WRITE 
f3,bi(bl,cl)I NEXT:NEXT:CLOSE 3 
1660 REM 

1670 REM ESTIHSB0RES 
1680 REM 

1630 FOR dl=l TO kl+l:F0R cX=l TO k 
l*l:e#(dX)-eiidX)+tbf(dl 1 cl)lz#(cl) 
):NEXT: dIf =d 1f +{ eft dl ) tz#(dX )):NEXT 
: r 1 # {3) =sy#-d 1 #: r 1 f (1)=r 1 # (3) / (t dl- 
kX-l):F0R fl=l TO kX+i:cX=fX:Sbff.fX 
)=SQR(rl*(1)*b*(fX,tX)):NEXT:rlf(4) 
=sy#-(sy2i/tdl) 

1700 rl#<2)=SQR(ri#tl)> 

1710 REM 
1720 GOTO 3420 
1730 REM 
1740 REM AJUSTE 
1750 REM 

1760 IF flagll=l AND rel="8" THEN G 
QSUB 2520:RETURN 

1770 IF f!agll=l AND rel<>"8" THEN 
60SU8 2330:RETURN 
1780 REM 

1790 PRINT FNIocaiel(16,36) jpiIi viI 
1* CALCULANDO “ivnl; 

1800 r 21C 3)=1-< r11< 3)/r1#(4)):c oc r * 
=(tdX-l)/ttdl-kX):r2f(4)=l-((l-r2#( 
3)>ltocr#):r2*(5)=SQR(rlf(3)/tdl):r 
2l{6)®(r2ltS)/ayl)»!00:r2#(7)*SQR(r 
11(1)) 

1810 FOR cl-i TO kX+l:IF sb#(cX)=0 
THEN p#(cX)=l*10*38 ELSE pi(cl)=ABS 
(e#(cX3/sb#tcX)):NEXT 
1820 spresf=0:OPEN V,l,ud$+nvd$+* 
.STANFIELD 1,8 AS valortlFOR cS=l 
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tipica. Tambien se proporciona la varianza de las 
perturbaciones, la desviacion tipica que estas 
producen, la suma de cuadraclos de errores y la 
suma de cuadrados totales. 

Medidas y contrastes: para contrastes de nulidad 
individual de parametros se dispone del valor del 
Estadistico t y del nivel de significacion para dos 
colas de probabilidad al 95 por cientode la t- 
Stuclent para no tener que utilizar tablas. Para 
contrastes de nulidad conjunta de parametros se 
da el valor de F para comparar con las tablas 
correspondientes. Se dispone del coeficiente de 
determinacion, del coeficiente de determinacion 
corregido, de informacion sobre errores, 


Mundo del 

PCW 

estadistico de Durbin-Watson, Rho estimado y 
Razon de Von Neuman. 

Matriz productos: Esta formada por los 
sumatorios de los productos de las distintas 
variables. La fila 1, columna 1, contiene el 
numero de datos utilizados en la regresion. Esta 


TO ti:GET 1,t**l:val#=CV0(valor!):F 
OR dx| TO nviX:0PEN V,2,udl+uvi! 

1. m **.STANFIELD 2,8 AS vaiofllGE 
T 2,cg+1: va2#=CVD(va1or1$>:ye#=ye#+ 
fe#(dX>*va2tf:CLOSE 2:NEXT:res#=vai 
l-ye# 

1830 IF val#=0 THEN 1850:'El valor 
leido an fichero es 0 
1840 pre5i=(res#/vali)J100:5pres#=s 
presl+presl:yei=0 
1850 NEXT:r2#(8)=spres#/tdf 
i860 edw#=0:ro!=0: 5 ro#= 0 :sro 2 #= 0 :dw 
1=0 

1870 FOR cX=2 TO td%:SET l.c*:vaO#= 
CV0(valor!):GET l,tX+l:val#=CVIKvai 
or!):FOR d*=l TO nvi5!:0PEN V»2,ud 
$+avi${di)+".STft":FI£LD 2,8 AS valo 
rl$:GET 2, cX:va2l=CVD(vaRrl$1:GET 

2, cX+l;va3#=CVD(valor!!);ye0l=ye0#+ 
C e# 0 d*)*va2#):ye1#=ve1#fte#(d *)*v a3 
m CLOSE 2 

1880 NEXT: e<M=aM+(,<«yal t-yel IM 
vaOft-yeO#)) * 2): sr oi-srot+((va li-yel 
# 51(va0#-ve0#)):sro2#=sro2#+((vaOt- 
yeOi)'2):yelt=0:ye0f=0:NEXT:CLOSE 1 
: r2ii 11 )=( (edw#/(tdX-1)) /(sro2#/tdi 
)): r2l(9)=edwt/rl!t(3): r2#( 10) =arol/ 
sro2t 
1890 REN 

1900 REN PRECISION 
1910 REM 

1920 IF tdl>30 THEN. tstudent=l. 96 E 
LSE tstudent=£stadi5tico(tdX-kX-l) 
1930 FOR c«=l TO kSJ+1:i#(cX)=e#(c*) 
-< t3tudent*5b#< c%)>:s#(cX)=e#(cS>+< 
ts tuden t*sb#(c *)>:NEX T 
1940 p2#(2)={(Pl#(4)-rl#(3))/kK)/Cr 
1#(3)/< tdS-kS-1)) 

1950 flaglS=l:60SUe 2390:IF re$="8 B 
THEN 6CSUB 2520 
I960 RETURN 
1970 REM 

1980 REM MATRIZ DE C0RRELACI0N 
1990 REM 


2000 IF flag2X*2 AND rsl=3 THEN SOS 
UB 2750:RETURN 

2010 IF flag2X=2 THEN S0SU6 27SC:RE 
TURN 

2020 PRINT FNlotatef(16,3g),pi$;vi! 
CALCULANDO "!vn$i 

2030 FOR cX=2 TO k%+l:cor3#<c?)=0:F 
OR el=2 TO kJ*+1: b# (c 34, &%) =0: NEXT: NE 
XT:F0R ci=2 TO kWlOPEN 
td¥il(cX)i a .STA":FIELD 1,8 AS valor! 
:F0R dX=2 TO tX;GET l,dX;valMV0Cv 
alor$):cor3#(clS=tor3i(cD+{(¥alH 
orli(cX)r2) 

2040 NEXT:CLOSE l:NEXT:CLOSE 1-FOR 
cX=2 TO kS+t:OPEN V,i,ud!-Hm$CcX 
i+'bSTA'':FIELD 1,8 AS valor! 

2050 FOR eX=cX TO kS+1 

2060 IF eX=tl THEN nfl=i ELSE ofS=2 

;OPEN "r",nfX,w»+*vif (el) +".STA*:F 

SEL0 t>fX,8 AS valor If 

2070 FOR dX=2 TO IS:GET 1,dS:val#=C 

V0(valor!) 

2080 IF eXkl THEN GET nfS,d»:va2#= 
CVDCvaiorlf) 

2090 IF etH% THEN va2#=val# 

2100 b#(cX,e*)=biCc*,e*>*<valt-torl 
iicX>Wva2t-torlt(eX>):N£XT 
2110 IF eSkX THEN CLOSE nf* 

2i20 b# i c *,el)=b#(cS,el)/SQR((tor 31 

(c K)*cor3#< e*)>):b#< eK,>=b#(cS,e% 

): NEXT: CLOSE LNEXT 

2130 OPEN *o%3/«:CORRE.SYS":FOS b 

X=2 TO nviXlFOR cX=2 TO nviXk'RITE 

13,b#(b% ftt'il NEXT:NEXTlCLOSE 3 

2140 fiag2?-2:IF re«=8 THEN GOSUB 2 

750 ELSE GOSUB 2750 

2150 RETURN 

2160 REM 

2170 REM PANTALLA 1 
2180 REM 

2190 GOSUB 460:ufX=4;fctl=7:G0SUB 48 
0:pf 1=1:ufX=9:flag3l=3:IF k*^l<=9 T 
HEN ufH:X+l:flaq3X=0 
2200 PRINT FNiocatefC1,7)?"Columna” 
jFNlocatef(1,25)? r1$JFNlocatefC1,47 


)|r2t 

2210 bS=l:FOR tX=pfX TO uf* 

2220 IF c*=t THEN PRINT FNIotate !(3 
, 25 ?"Const-ante”?:GOTO 2240 
2230 PRINT FNIocatef(bX+ 2 , 2 ); 3 PC (10 
)? FNiocatefCbX+ 2 , 2)5 bv i!(cX); 

2240 PRINT FNlocate$(bX+2,21);USING 
for®a$iel(cX)!:PRINT FNiocatefCb%+ 
2,44)jUSING formaf*sb*(cl):bX=bX+l: 
NEXT 

2250 FOR t-X=i TO 4:PR!NT FNiocatefC 
bX+i3,2);pl$(bX);STRING!(64-LEN(pl$ 
(bf j T ABt 69) j US INS forrsa! jri# 

CbS):NEXT 

2260 IF fiag3X=3 THEN GOSUB 3350:GO 
SUB 3260 
2270 RETURN 
2280 REM 

2290 REM INPRIME PANTALLA 1 
2300 REM 

2310 LPRINT an!!STRING!! 121, ''=") :LP 
RINT *€oefitientes*jdnf:LPRINT *Sar 
sable dependierte: "jnvdf:LPRINt "V 
anabie" i TAB (46) ? ”Coefit iente"! TftEC 
103)5"Desviac 1 on tipua":LPPINT STR 
TN6K121 *=") 

2320 LPRINT "Constante';:LPRINT TAB 
(40);USING foma$;e«m:lPRINT TAB 
000)1 USING forwa$;Sbl(l? 

2330 FOR tX r 2 TO kX+i:LPRINT *vi«c 
X)::LPRINT TABC40)iUSING tormaf;e#C 
cS?;:LPRINT TAB!100).-USING fomafiS 
b#CcX):NEXT 

2340 LPRINT STRING!?121,"- c <:F0R cl 
=1 TO 4:LPRINT plMcXmLPRINT TAB? 
70)IUSING formaf? r1 DC cS):NEXT 
2350 RETURN 
2360 REM 

2370 REM PANTALLA 2 
2380 REM 

2390 GOSUB 460:ufX=ll:bfX=l:G0SUB 4 
80;pfX=i:ufX=9:f lag3X=4: IF kX+K=9 
THEN ufX=kX+l:flag3X=0 
2400 PRINT FNiocatefC1,7);"Colusna” 
;FNiocatefC 1,2-5)|"Estadistico t"jFN 
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informacion es importante para comprobar 
cuantos dates estan incluidos en los calculos, 
especialmente cuando el programa informa de 
que los ficheros no tienen el mismo tamano. La 
fila n, columna n, tiene el sumatorio de los 
cuadrados de la variable independiente n-esima, 
la fila 1, columna 2, contiene el sumatorio de los 
productos de la variable independiente l. a y 2. a 
o, lo que es lo mismo, la suma de la variable 
independiente 2. a , etc. 

Matriz inversa: presenta los resultados de 
invertir la matriz de productos. 

Matriz de varianzas covarianzas: sus filas y 
columnas son el resultado de multiplicar la 


varianza de las perturbaciones por la matriz 
inversa de la de productos. 

Matriz de correlacion: con esta opcion podemos 
ver la matriz formada por todos los coeficientes 
de correlacion simple. 

Residuos: esta opcion proporciona los valores de 
la variable dependiente, los valores estimados de 
ella variable dependiente, el residuo y el tanto 
por ciento de residuo. Es apropiada, por tanto, 
para realizar un analisis de los residuos. 

Imprime resultados opcion: seleccionando 8. se nos 
pide que indiquemos el numero de los resultados 
a imprimir. Si se selecciona 2 se imprimiran las 
medidas y contrastes, etc. Si se selecciona 9 


locate!?!,52)1"intervalo oe confian 

za al 95** 

2410 bl=i:F0R >:S=pf* TO ufj 
2420 IF U=1 THEN PRINT fNlocate«3 
,21}'Constants ";:GOTO 2440 
2430 PRINT FNiocate!?b*+2,2>fS?CU0 
) lFNSoCdfstibS+2,2 )\mifi cS> ] 

2440 PRINT FN1oc ate!? bX+2,21)I USING 
forfiia$jp#(c%>; :F'RINT FNiotate!?b*+ 
2,4a), IfSI NS f op»a*i i#( c*>«: PRINT FH 
locate*?bS+2,67)}USING formal;st?cl 
dbfcbX+KNEXT 

24SO PRIST FNlocate*?14,2)5*t-Stude 
nt al 95a";STRING!? 48,”.*JiTAB?69)! 
USING forasa!; tstudent 
2460 FOR bI-2 TO 11:PRINT FNbtate! 
fb*+ 13i 2? I p2* ? b*)} STRING!? 64~lEN(p2 
") j TAB (fc-S > ? US IN6 foraaff r2 
Uh%)'M it 

2470 IF f1aq3t=4 THEN 60SUB 3350:60 
SUS 3260 
2480 RETURN 
2490 REM 

2500 REN IMPRIME PANTfitL.fi 2 
2510 REM 

2520 LPRINT an!5STRING!?121,***);IP 
PIN' 1 ' “Hediaas y tontrastes'idnilLPR 
1ST "Variable dependiente: "5nvd*:L 
PRINT "Variab 1 e"iTfiB(44);”EstadisU 
cc i"jTftS(8S)"Intervalo de tonfisnz 
a":LPRINT STRING!?121,*=*) 

2530 LPRINT "Constants"?:LPRINT TAB 
?40)iUSING foriaa!;p*(i>::LPRlNT TAB 
(70)iUSING forniatfi#( 1)*:LPRINT TAB 
U00)(USING foraa*5s»m 
2540 PDF: c*=2 TO kX+1 ILPRINT witit 
t);:LPRINT TAB?40)IUSING foraa!ipt( 
c%)j 1LPRINT TAEK70)JUSING forufcii 
<c*)JJLMUNT TAB? 1001 iUSING forma!; 
s#?c*):NEXT 

2550 LPRINT STRING*?121, B -"):LRRINT 
"l-Student al 95X*«TflB(70>)USlN6 f 
oraa*}tstudent:FDR c*=2 TO lllLPMN 
T p2$<c%)5:LPRINT TAB?70)5 USING for 
sat;r2*(cSS):NEXT:RETURN 


2560 REN 

2-570 REN RESIDUOS 
2580 REH 

2590 S0SUB 460:PRINT FNIocaleMi.l) 
?*Obs."jFNlocate!?1,14);*tRes "?FN1 
ocatef? 1,27);"Y est-iffiada"?FNlocate! 
(1,521?*Y real®|fNictate!?1,75)5"Re 

5ldUO* 

2600 ft=l:0PEN V,i f ud!Miwl$**.$TA 
"1 FIELD 1,8 AS valor! 

261-0 FOR c%-pf% TO ufS:GET Ltt+llv 
al#=CVD< valor!):ye#=0:FOR dl=l TO k 
1+1:OPEN *r',2 «d*Tft¥i!?dS>+\$TA*: 
FIELD 2,8 AS va!oflt:GET 2,tS+l:va2 
*=CVB( vai or 1!): yetye HCstttffl 5 *va2# 

\ «cr MpVI 

2620 PRINT fNictate!?f in, f )?c*? Fill 
ente*?fJ*2,6)iUSI«8 I# 

%“j( tval#-ye#5/valDilOO::F'RINT FN1 
ocat*!?f %*2, 21) USING forma*;ye#::P 
PINT FNibcate!(ft+2,44)iUSING forma 
* i vail;:PRINT Fillocate!(ft+2,67);US 
INS for»a$;?valft-ye#)}:f*=f*+l:NEXT 
2630 CLOSE llPRINT:IF td?>9 THEN PR 
INT vit;FNloc ate*(29,0);*Tet1as cur 
sor para ver dates 

SAL = Salir para nue 

va codon a ;vr«*| 

2640 RETURN 
26SO REM 

2660 REH IMPRIME RESIDUOS 
2670 REH 

2680 LPRINT an!,STRING!?121,"="),"R 
esiduos";dn$:LPRINT “Variable depen 
diente: dnvdl: LPRINT "Obs."iTAB?20 
);"XRes.*;TAB?45)j"Y estiinada";TAB? 
75)J*Y real"!TAB?105)!"Residuo":LPR 
INI STRING!? 121/=") 

2690 f!=l:0PEN V,i,ud!+nvdi+".STfi 
":FIELD 1,8 AS valor! 

2700 FOR c*»l TO tdXlGET I,c*+l:val 
l=CVD(valor!):ye#=0; FOR dl«l TO f:X+ 
I: OPEN * r 1 ', 2, lid!+siv i!(dl)+". STA*: FI 
ELD 2,8 AS valor!!:GET 2,c**l;va2i= 
CVD(wlorl*):yet*y##+(e#(tK)*va2#): 


CLOSE 2:NEXT 

2710 LPRINT c*;:LPRINT TAB? 15);USIN' 
S ****#*•»>»#. lit* ;? ? vai#-ye#)/vat* 
SHOO;:LPRINT TAB?40);USING forma*; 
ye#;:LPRINT TAB(70);USIN6 forsa!;va 
1#;:LPRINT TAB(100);USING forma!;fv 
a1#-ye#):NEXT:CLOSE 1:RETURN 
2720 REH 

2730 REH PRESENTA MATRICES 
2740 REH 

2750 IF re*-8 THEN reX=rei&* ELSE G 
0SUB 460 

2760 IF (re«=3 OR reW) THEN nf!=® 
If: INVX'X SYS" ELSE IF res=5 THEN nf 
!**«:X'X.SYS* ELSE IF re*=6 T HEN nf 
!=*N:C0RRE.SYS*:f f X=nviX-l 
2770 IF reXOS THEN fft=nviJ 
2760 OPEN "iV3,nf$:F0F: bS=l T 0 ff* 
5FDR ct=l TO ff%:IN P UT #3,b#(b?,c?) 

:NEXT:NEXT:CLOSE 3:prs=l 

2790 IF reiffill AND reisS?7 THEN SC 

SUB 2900:RETURN 

2800 IF ki<=3 AND reX=b THEN pf|=l: 
pcX-1: ufZ-kl:ucMJS: GOTO 2820 
2810 IF kX+K=3 THEN pf*=l:ufX=k*+l 
:prX=I:uc«=k%+l ELSE G0SUB 3350:GOT 
0 3120 

2820 b%=1:FOR c*=pf* TO uf*:F0R d#= 
pcS TO ucl 

2830 PRINT FNlotatei?1,25+prt)j*Co! 
usma: PRINT USING "##”;d* 

2840 PRINT FNlocate!(2+bX,3);"Fila: 
"LPRINT USING “fftdcS 
2850 IF re*=4 THEN PRINT FNIocatet? 
bl+2,20+prX);USING format;r1#?1)*b# 
(dJ,cX)?:ELSE PRINT FNlocateKbX+2, 
20+prtlFUSING forsaijbi?dt, c %); 

2860 prZ=prS+23.:NEXT:PRINT:b*=bM: 
prX=l:NEXT:RETURN 
2870 REH 

2880 REH IMPRIME MATRICES 
2890 REH 

2900 LPRINT ani;STRIN6$(122,***):lF 
ret=3 THEN LPRINT "Matriz inversa" 
ELSE IF reX=4 THEN LPRINT "Matriz 


111 AMSTRAD Snntmal 





















volvemos al menu anterior, para, si queremos 
salir, volver a pulsar 9. 

Sale: se pide confirmacion, que se introduzca 
disco con programas y que se pulse una tecla. A 
continuacion, se carga el programa de seleccion 
cle modulos donde se elige entre Gestion de ficheros, 
Regresion multivariante o Salir a CP/M. 

El manejo es extremadamente simple. Cuando 
los resultados no cogen en la pantalla, ya sea en 
la opcion de matrices, en la de residuos o cuando 
el numero de variables es mayor que 9, se 
informa de que las teclas del cursor se utilizan 
para visualizar datos y Sal para salir y seleccionar 
una nueva opcion. 


Mundo del 

PCW 


Dada la extension del listado nos hemos 
visto obiijades a darlo en dos partes. La 
siguiente y ultima parte aparecera en el 
proximo numero. 


de varlanzas-covarianzas* ELSE IF r 
eS=S THEN LPRINT "iiatriz productos* 
ELSE IF re!!=6 THEN LPRINT ”Matriz 
de correlation" 

2310 LPRINT dn$;STRIN6t(122, ! '="»:F0 
R bt=l IQ ffXliPRINT "Fila! *;bX:F0 
,R 4=1 TO ffCIF reS=4 THEN LPRINT 
USING forsal;rllCi)*b#( cl , b%) ?:ELSE 
LPRINT USING formatibiKcX.b*); 

2920 LPRINT " NEXTILFRINT:NEXT 
:RETURN 
2930 REM 

2340 REM FILAS PRESENTA RESIDUOS 
29S0 REM 

2360 pf: uf *=3;f i *=!: np*=F IX|14; 

9dT!fapi=<tdl MOD 9):up£=idX-nfuol 

2970 If np*=0 THEN ufX=tdX:60SUB 25 

70:RETURN 

2980 S0SUE: 2570 

2990 IF tdS<=9 THEN 3080 

3000 opi=' ; *:op$=INPUT$(l):v*=ASCfo 

pw 

3010 IF 4=27 THEN 3080 

3020 IF \il= 30 AND (pf%>=! AND pfKu 

p%) THEN pf S=uf %+1:uf3=pf *+S 

3030 IF vX=30 AND pfX=up*+l THEN uf 

X=tdS 

3040 IF v*=3S AND (pf*>l AND pflKtd 
%) THEN uf*=pf*-l:pf*=wf*-8 
3050 IF v*=31 AND Bf*=td* THEN ufX= 

up*.*Df*=ufJ-8 

3060 fiOSUB 470:G0SUB 2600 
3070 GOTO 3000 
3080 RETURN 
3090 REM 

3100 REM FILAS-C0LUHNAS MATRICES 
3110 REM 

3120 pf*=KpcX=i:uc»=3 
3130 ufS=ffX:IF d+K9 THEN ufX=ffX 
ELSE uf£=9 
3140 6DSUB 2820 

3150 opt=" ":opt=INPUTt(l):4=ASC(o 
P» 

3160 IF '4=27 THEN 3220 

3170 IF vX=31 AND pfSXl THEN pfi=pf 


W:ufX=ufX-l 

3180 IF -4=30 AND ufJCffS THEN pf|= 

pfX+i:ufX=ufX+S 

3190 IF 4=6 AND utUff* THEN pd=p 
c55+i :uc%=uc%+i 

3200 IF 4=1 AND pd>l THEN ptX»prf 
*i:wX=uc?-l 

3210 PRINT pit?:6GS08 2820:6010 315 

0 

3220 RETURN 
3230 REM 

3240 REM FILAS COEFICIENTES MEDIDAS 
Y CONTRASTES 
3250 REM 

3260 op$="":op$=INP0T$<1):vS!=ASC<op 

t) 

3270 IP 4=27 THEN 3310 

3280 IF 4=3* AND ptt>i THEN ofl=pf 

3290 If *4=30 AND «f|KkJU THEN pf* 
=pfi+s:ufl=ufl+i 

3300 IF flag3X=3 THEN S0SUB 2210 EL 
SE IF flag3t*4 THEN S0SUB 2410 
3310 RETURN 
3320 REM 

3330 REM INFCRMA MOVIMIENTO SI VARI 
ABLES INOEPENDIENTES Yi 
3340 REM 

3350 PRINT vil;pi$lFNlotate$(30,0)| 
SPCC89) * F NI oc a ‘ et ( 30, 5).»* Ted as car 
sor para ver dates 
SAl = Sale para nueva opcion";:PRI 
NT yn$ 

3360 RETURN 
3370 REM 
3380 REM SALE 
3330 REM 

3400 CLOSE IIRUN *A:CAR6ADQR" 

3410 REM 

3420 REM nmNOIV PRINCIPAL REGRES 
ION MULTIVARIANTEltm 
3430 REM 

3440 PRINT ENvenianat (0,0,32,30 >;:P 

PINT ds* 

3450 PRINT FNlocatet(27,i)ivi$i"l:C 


oefuientes SlMedidas y Contrasts 
35 Hair n mversa 4:Matriz varia 
nzas*covarianzas":PRINT 
3460 PRINT FNIocateff 28,1); ”5:Matri 
z Productos 6:Hat-riz Correlation 
7:Residuo5 S:Inpriue resultados op 
cion 9;Sale”:PRINT 
3470 PRINT vi$5FNIocate*(30,0)jSPC1 
83);FNSocaie*{30,35):"Selecttone op 
cion; *jvnij 

3480 retdNFUTK1):reS=VAL(ret!; IF 

?«Kt OR reS>9 THEN 3480 

3490 LPRINT CHRMISij 

3500 PRINT FNIot at etc 3.0.54 ) i.SPC )i 

FsSocatet-: 30,54): ret; pit? 

3510 0» ret 60SUB 2190.1760 2750 S’ 

50.2750.2000.2960.3600 
3520 IF ret-, >8 THEN 3560 

3830 ret=9 THEN PRINT FNlocateSi 
30,35):vit;“SELECCION C0RRECTA (S/S 
»*»vnt;:at=INP ! ;-Tiit j:#it=at:GCSUB 4 
:0:a$=is2t; PRINT 

3540 IF at=“S* T HEN PRINT n,t ecate= 
i 30,23);vi$;* INT RODUZCA DISCO CON P 
ROSRAMAS. Pulse P*:;a$=IMPUT$CU;d 
t=ai:S0SU8 410:at=v2$:IF a$=*P* THE 
K GOTO 3400;ELSE 3450 
35-50 IP at .THEN 3530 
3560 GOTO 3470 
2570 REM 

3580 REM t^rfMENU IMPRESISN««t 
3590 m 

3600 PRINT FNiocatet(30,27);vi15"Se 
leccione result-ados a isprimir:“;vn 

n 

3610 rei»t=INPUT$( 1) IPRINT FNIocate 
M30,63)5 -SPC Cl) i FNlocatetf 30,635 ; re 
ifiitjpitJLPRINT CHRtCIS)|:rei»X=VALi 
retffiti 

3620 IF reiaS=8 THEN 3600 

3630 ON reiftl G0SUB 2310,1760,2750, 

2750.2750.2000.2680.3600 
3640 rei«$=*’:rei»t=0 
3650 RETURN 

3660 PRINT pit;:RESUME NEXT 
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CRaV-5 


i .Donde estan las Haves? 


Como quiera que dia a dia los ordenadores rigen y gobiernan mas funciones 
humanas, es posible que en cualquier momento de un Juturo no muy lejano, 
nos encontremos en la dificil situacion, 
de vida o muerte podriamos decir, en la que se encontro la gente de 
Lastman, asteroide de una lejanisima galaxia, al estropearse su 
superordenador controlador de la atmosfera artificial. 

Un asunto para quedarse sin respiracion. 



D 

ill Fly, capaz ingeniero anaKtico, fue 
encargado de parar y arreglar el ordenador Cray 
5, antes de que este pudiera destruir el generador 
atmosferico. Debido al gigantesco tamano del 
superordenador, Bill tuvo que enfundarse un 
traje protegido contra todo tipo de radiaciones, 
ademas de estar dotado con unos microcohetes de 
propulsion, sumamente necesarios por la urgencia 
de la mision. 

La verdad sea dicha, nuestro ingeniero era un 
individuo sumamente eficaz, pero no las tenia 
todas consigo. Para acceder a los switch logicos, 
desconectarlos, y por lo tanto parar el ordenador, 
debia conocer las Haves que abrian las trampillas 


de entrada en donde estos se encontraban, cosa 
que Bill ignoraba. Pero tampoco se le podia 
exigir eso. Despues de todo, el habia disehado el 
ordenador y sabia como funcionaba, pero no 
habia elegido las llaves de las puertas ni los 
colores de estas. 

Si lo anteriormente dicho era todo un 
problema, no lo era menos el hecho de que la 
energla del traje era limitada, y que los sistemas 
defensivos del Cray 5 tenfan celulas que 
absorbenan esta en el momento en que fueran 
rozadas. Tan perniciosas celulas estaban 
distribuidas por el suelo y techo de las zonas. 
Para recargar el traje podia utilizar los 
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ZONA 2 

2-1. Cambiar Have cuadrada 
por Have exagonal. 

2-1 a 2-2. Abrir puerta verde. 

2-2 a 2-1. Coger Nave cuadra¬ 
da. 

2-1 a 2-2. Abrir puerta azul, to- 
car switch y coger 
Have triangular. 

2-2 a 2-1. Montar en teletrans- 
porte e ir a Zona 4. 



JUEGOS 



I 


ZONA 3 

3-1. Coger Have exagonal y 
montar en teletransporta- 
dor e ir a Zona 4. 




generadores energeticos distribuidos por el 
ordenador, pero debia tener claro que solo uno 
de ellos no era una trampa mortal. Teniendo 
todo esto muy en cuenta, Bill se dispuso a 
comenzar tan vital tarea. 


Los switch, que por cierto eran doce, se 


1-1 

1-2 

1-3 

1-4 

1-5 

1-6 

1-7 

1-8 

1-9 

1-10 

1-11 

1-12 

1-13 

1-14 

1-15 


hallaban dispersos por nueve zonas del macro- 
ordenador. Bill comenzo a deambular en su 
busqueda. A su paso saltan electrones locos, iones 
perseguidores y flectores asesinos. Menos mal que 
podia dar cuenta de todos ellos con su potente 
laser. Pronto encontro la primera Have. Esta era 
triangular, y se dio cuenta que todas las que 
tenian esta forma abrian las puertas de color 
rojo. Abrio una puerta de este color y en el 
interior de la estancia encontro otra Have. Esta 
era de forma cuadrada y abrfa las puertas azules. 
Siguio avanzando y penetrando por las salas, 
descubriendo que habfa muchas mas Haves. 
Incluso encontro un tercer tipo, las exagonales, 
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ZONA 1 

1-1 a 1-12. Coger Have cuadrada. 

1-12 a 1-3. Cambiar Have cuadra¬ 
da por exagonal. 

1-3 a 1-4. Abrir puerta verde. 

1-4 a 1-2. Coger Have triangular. 

1-2 a 1-4. Abrir puerta roja. 

1-4 a 1-5. Tocar switch y recoger 
Have cuadrada. 

1-5 a 1-10. Abrir puerta azul y to¬ 
car switch. 

1-10 a 1-2. Coger Have triangular. 

1-2 a 1-8. Abrir puerta roja dere- 
cha. 

1-8 a 1-9. Coger Have triangular. 

1-9 a 1-8. Abrir puerta roja iz- 
quierda. 

1-8 a 1-12. Coger Have cuadrada. 

1-12 a 1-6. Abrir puerta azul 

1-6 a 1-11. Coger Have cuadrada 
montar en teletrans- 
porte e ir a Zona 2. 
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ZONA 4 

4-4 a 4-5. Abrir puerta roja. 

4-5 a 4-10. Coger Have cuadrada. 

4-10 a 4-8. Tocar switch y coger 
Have triangular. 

4-8 a 4-1. Abrir puerta roja. 

4-1 a 4-3. Coger Have triangular. 

4-3 a 4-1. Abrir puerta roja y tocar 
switch. 

4-1 a 4-3. Coger Have exagonai. 

4-3 a 4-10. Abrir puerta verde. 

4-10 a 4-4. Coger Have exagonai. 

4-4 a 4-10. Abrir puerta verde. 

4-10 a 4-4. Coger teletransporta- 
dor e ir a Zona 3. 

(Viene de Zona 3) 

4-4 a 4-9. Abrir puerta verde, su- 
bir por encima de los 
imanes, tocar switch y 
coger Have cuadrada. 
Volver sobre nuestros 
pasos e ir a 4-4. 

4-4. Montar en teletransportador 
e ir a Zona 5. 



ZONA 5 


5-7 a 5-6. Cambiar Have cuadrada 
por Have triangular. 

5-6 a 5-4. Abrir puerta roja y tocar 
switch. 

5-4 a 5-5. Coger Have triangular. 
5-5 a 5-8. Abrir puerta roja. 

5-8 a 5-6. Coger Have cuadrada. 
5-6 a 5-8. Abrir puerta azul. 

5-8 a 5-1. Coger Have exagonai. 


5-1 a 5-8. Abrir puerta verde. 

5-8 a 5-7. Coger teletransporta¬ 
dor e ir a Zona 7. 

(Viene de Zona 6) 

5-7 a 5-10. Cogemos Have exago¬ 
nai. Cuidado con los 
imanes. 

5-10 a 5-7. Montamos en teleca- 
bina a Zona 6. 


que abrfan las puertas en las que habia un 
distintivo verde. 

Despues de un tiempo, y tras haberse dado 
cuenta que era muy interesante llevar un buen 
orden en coger las Haves, asi como en abrir las 
puertas, dado el corto espacio de tiempo para 
completar la mision, encontro el primer switch. 
Desconecto el switch. Inmediatamente corrio hacia 
el teletransportador zonal, pulso el mimero de la 


zona a la que queria viajar y siguio su tarea. Asi 
hasta que consiguio desconectar los switch de las 
nueve zonas y, ya en la ultima, coger la nave 
que le esperaba para salir del gigantesco 
ordenador. 

Como se puede ver, Cray 5 es un arcade en la 
linea de los dirigidos a recoger objetos, en este 
caso Haves, pero que haria palidecer de envidia a 
otros debido a su dificultad. El conseguir 
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4-1 

4-2 

4-3 


4-4 

4-5 

4-6 

4-7 

4-8 

4-9 

4-10 



JULUv/J 

argador 

i REM * 



5-1 

5-2 

5-3 

5-4 

5-5 

5-6 

5-7 

5-8 

5-9 

5-10 
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ZONA 6 


6-1 a 6-2. Abrimos puerta verde. 

6-2 a 6-1. Cogemos teletransporte a Zona 5. 

(Viene de zona 5) 

6-1 a 6-2. Abrimos puerta verde. 

6-2 a 6-1. Cogemos Have triangular. 

6-1 a 6-4. Abrimos puerta roja, tocamos switch y co¬ 
gemos Have triangular. 


6-4 a 6-7. Abrimos puerta roja. 

6-7 a 6-4. Cogemos Have exagonai. 

6-4 a 6-7. Abrimos puerta verde. 

6-7 a 6-6. Cogemos Have cuadrada. 

6-6 a 6-8. Tocamos switch y cogemos Have triangular. 
6-8 a 6-1. Cogemos teletransportador a Zona 8. 




ZONA 8 

8-1 a 8-2. Abrimos puerta roja y 
cogemos Have cuadra¬ 
da. 

8-2 a 8-3. Abrimos puerta azul y 
cogemos Have triangu¬ 
lar. 

8-3 a 8-8. Abrimos puerta roja y 
tocamos switch. 

8-8 a 8-5. Cogemos Have cuadra¬ 
da. 

8-5 a 8-1. Cogemos teletranspor¬ 
tador a Zona 9. 


ZONA 7 

Deberemos ir alternativamente 3 veces de 7-2 a 5-9 
(en la Zona 5), e ir recogiendo las 3 Haves triangula¬ 
res y abrir las 3 puertas rojas alternativamente. Des- 
pu6s de esto ultimo, pasaremos de 5-9 a 5-10, toca- 
remos el switch, cogeremos la Have exagonai e ire- 
mos a 5-7 para montar en el teletransporte e ir a Zo¬ 
na 6. 


averiguar el orden en que interesa coger las Haves 
y abrir las puertas es un trabajo de «chinos». 

Pero esto no es todo, ademas las celulas 
absorbedoras «chupan» de manera cruel la 
energia de nuestro traje y, si nos descuidamos, 
acaban con una de las seis vidas con las que Bill 
Fly cuenta que, por cierto, se antojan pocas. 
Flabra alguien que piense, «jQue exagerada es 
esta gente!»; pues no, los corpusculos que nos 
persiguen, absorbiendo tambien nuestra energia, 
como los imanes, a los que quedaremos 
«pegados» si nos descuidamos, anaden «salsa» al 



8-1 

8-2 

8-3 

8-4 

8-5 

8-6 

8-7 

8-8 
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JUEGOS 
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ambiente. Pero como al creador del programa se 
le debio ocurrir que hay jugones que todo lo 
pueden, rizo el rizo y le anadio tiempo. Si con 
esto alguien consigue hacerse facilmente el Cray 
5, sin pokes y mapas se entiende, no nos importa 
conocerlo y poderle felicitar. 

Graficamente, este juego esta resuelto bastante 
bien; no se debe olvidar que Cray 5 es el primer 
juego de su creador, y el colorido es rico. Lo que 
si habra que corregir en un futuro es el efecto de 
transparencia que sufre el protagonista del juego. 
Cuando se mueve por delante de otra figura se 
nota la presencia de esta. Ya que hablamos de 
movimiento, podemos decir de este que esta bien 
conseguido, pero que para pasar por una puerta 
u otras aberturas es necesaria una precision de 
pixels. Tenemos que estar muy bien encuadrados 
para lograr pasar de un sitio a otro. 

El sonido esta bien logrado, el ruido de los 
cohetes de propulsion es bueno, como tambien lo 
es la melodia de presentacion. 

Para terminar, nos gustaria dar la bienvenida 
al mercado del software a Topo, casa espahola a 
la que pertenece este entretenido juego, 
entretenidisimo podriamos decir, y desearles una 
feliz andadura en un campo tan duro como el de 
los juegos. 

Cray 5 es distribuido por Erbe. 



Para los valientes 

Ya hemos dicho en alguna ocasion que hay gen- 
te que ama realmente la aventura y el riesgo, no 
importandole enfrentarse a estos a pecho descu- 
bierto (entiendase por esto, sin pokes o cargado- 
res). Por eso, y porque estos heroes merecen to- 
dos nuestros respetos, nos gustaria aconsejarles 
lo siguiente: 


Cuidado con... 

... Los imanes. Son muy peligrosos, y podemos 
quedarnos pegados sin posibilidad de liberarnos 
en pantallas tales como: 1-10, 4-7, 4-9 y 6-2. 

... El gasto de energia. El unico recargador ener- 
getico se encuentra en la Zona 3. Pero como no 
vamos a decirlo todo, pues haria esto demasiado 
facil, dejaremos que los jugones hallen la forma 
de llegar a el. De todas formas, tampoco es tan 
dificil. 

... La falta de precision al intentar cruzar una 
abertura. Podemos estar un buen rato intentan- 
do entrar y los iones, electrones, etc., nos pue¬ 
den poner «a caldo». Nosotros pensamos que es¬ 
te problema es menor jugando con joystick. 

Tambien dariamos a los valientes la formula del 
Valium, pero esta registrada. Ademas, confiamos 
en sus nervios de acero. 
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ZONA 9 

9-6 a 9-4. Tocamos switch. 

9-4 a 9-8. Dejamos Slave cuadrada 
y cogemos la exagonal. 

9-8 a 9-13. Tocamos switch. 

9-13 a 9-11. Abrimos puerta verde. 

9-11 a 9-8. Cogemos Nave cuadra¬ 
da. 

9-8 a 9-11. Abrimos puerta azul. 

9-11 a 9-7. Cogemos Have exago¬ 
nal. 

9-7 a 9-12. Abrimos puerta verde. 

9-12 a 9-8. Cogemos Have trian¬ 
gular. 

9-8 a 9-12. Abrimos puerta roja. 

9-12 a 9-1. Cogemos Nave trian¬ 
gular. 

9-1 a 9-12. Abrimos puerta roja. 

9-12 a 9-5. Cogemos Have exago¬ 
nal. 

9-5 a 9-12. Abrimos puerta verde. 

9-12 a 9-13. Cogemos nave y sali- 
mos del ordenador. 


JUEGOS 
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dDesaparecen los Amstrad CPC? 


indescomp 


no contesta 


Hace tiempo, mucho tiempo, 
paseando por un Madrid de agosto 
agradablemente desierto, fui a dar, 
por casualidad, con una tienda de 
informdtica. El tufillo a ordenador 
era irresistible, y entre decidido a 
pasar un buen rato husmeando entre 
teclados, lenguajes y joysticks. Una 
maquina llamo inmediatamente mi 
atencion. No la conocia, y eso era 
realmente raro. Tenia un teclado de 
maquina de escribir, un cassette 
incorporado y un precio mas que 
razonable. El vendedor, al otear una 
expresion entre interesada y curiosa, 
se me acerco a paso de carga y me 
dijo: <yQue le parece? Es un 
ordenador nuevo que acabamos de 
recibir. Se llama Amstrad». La 
respuesta, inconsciente del futuro que 
se abalanzaba sobre mi, fue: «Bien, 
no estd mal. yComo andais de 
novedades para el Spectrum?». 

Desde entonces, todo ha sido 
accion trepidante. Nuevos modelos, 
cada vez mas potentes, a menudo 
mas baratos, han inundado los 
mercados de Europa, en un 
incontenible crescendo que parece 
culminar en las estrellas actuales de 
la gama: los compatibles PC. 
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A 

Ian Sugar, chairman de Amstrad, ha 
logrado su objetivo. Sus ordenadores son 
conocidos en todo el mundo y encabezan las 
listas de ventas de muchos pafses. Evidentemente, 
el mana asociado al exito no solo se derrama 
sobre los creadores del producto, sino que 
tambien recae en quienes lo venden y distribuyen 
en cada pais. En el nuestro, Indescomp ha 
pasado de la nada a ser una compania con una 



INFCRMI: 

facturacion anual cjue se cuenta en miles de 
millones. 

Toda esta obra gigantesca no cobro vida en un 
dia. El camino se recorrio paso a paso, y, aunque 
cabe pensar en un resultado fruto de una 
meditada estrategia, hubo momentos cruciales en 
los que Sugar e Indescomp tuvieron que declarar 
sus cartas, y, al definirse, revelar una politica en 
extremo preocupante, cuyas consecuencias 
ensenan hoy unos dientes mas amenazadores que 
nunca. 

Amstrad jamas ha mnovado nada. Se ha 
limitado a salir en masa al mercado, muy bien 
arropado publicitariamente, con productos muy 
ajustados de precio que usan una tecnologia muy 
probada, en general obsoleta y anticuada — 
compatibles PC incluidos—, y no siempre exenta 
de fallos dificilmente justilicables (calentamiento 
del nuevo Amstrad PC, incompatibilidad 
manifiesta del mismo con ciertas tarjetas de 
expansion estandar, etc.). 

Alan Sugar, en una reciente entrevista 
concedida a la BBC, intento salir al quite de los 
problemas del PC 1512 y declare que el no era 
un tecnico, sino un vendedor, y que si la gente 
cree conveniente instalar un ventilador en cl PC 
para su iranquilidad, pues bueno, que era 
suficiente subir el precio del ordenador unas 
cuantas libras y lo ponia el mismo. Con su 
particular estilo, Sugar conjure un hechizo de 
transformacion con el que un claro defecto de 


El Amstrad PCW 8512 deja 
de fabricarse sin previo 
aviso. 


diseno desciende por la pendiente de lo discutible 
hasta alcanzar la categorfa de capricho, al que 
graciosamente se condesciende. Perestroika pura. 

Desde luego, si esta fuera la politica habitual 
de Amstrad e Indescomp, ya que casi siempre 
son coincidentes, bastaria decir con toda justicia 
apaga y vamonos. Afortunadamente, no es este el 
caso, pero la situacion actual respecto a los 
ordenadores Amstrad esta tan cargada de 
rumores, incertidumbres, desinformacion y 
silencio que las viejas heridas levantan la cabeza, 
y reclaman su derecho a escocer con mas fuerza 
que nunca. Nos referimos al extinto CPC 664, de 
triste memoria, inmediato sucesor del CPC 464. 
,;Lo recuerdan? El syntax horror sucedio hace unos 
dos anos y le dio vida una buena idea: ,;por que 
no lanzar un ordenador con unidad de disco, 
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CP/M estandar, muy barato? Asi se hizo. Poco 
despues de la aparicion del 464, casi sin tiempo 
para deslustrar su teclado, los sorprendidos 
usuarios se encontraron sumergidos en el bombo 
del lanzamiento del nuevo ordenador. 

El CPC 664 hizo furor, se vendio muchisimo y 
sirvio para acostumbrar a la gente a ver este tipo 
de ordenadores como algo cotidiano y factible. 

Era una gran maquina para la epoca. 

Sin embargo, lo que Amstrad e Indescomp 
trataron de mantener en secreto fue que la 
presentation olicial del 664 tuvo una doble vida. 
Por una parte, los periodistas pudieron admirar a 
su sabor la nueva maquina, y corrieron a escribir 
sus comentarios acerca de la misma. Cuando la 
prensa desaparecio, hubo una segunda 
presentation para los distribuidores. Alan Sugar 
les condujo a una habitation reservada. Alh 
habfa una mesa, y encima de ella un ordenador, 
con un cierto aire de parentesco con el 664. El 
chairman de Amstrad dijo textualmente: «Senores, 
el CPC 664 acaba de morir. Les presento a su 
sucesor, el CPC 6128». Esta informacion, que se 
puede etiquetar como clasificada X, nos ha sido 
suministrada por fuentes absolutamente solventes 
de la propia Indescomp. 

Mientras tan to, el 664 se empezo a vender y 
miles de personas lo adquirieron, para 
encontrarse poco despues con el infiltrado CPC 
6128, sin previo aviso, dos veces mas potente y al 


mismo precio. Solo Amstrad e Indescomp en 
Espana estaban al tanto del asunto. Para algunos, 
esto tal vez sea al summum de la habilidad 
comercial, pero los usuarios del 664 a lo mejor lo 
ven de otra manera. Todo fue planeado desde 
el principio con el maximo detalle. No resulta 
facil, siempre desde el punto de vista del usuario, 
encontrar una explicacion razonable a un desplante 
de este calibre. 

Una tal actuacion parece ser lo bastante 
contundente para requerir informacion de 
Indescomp cuando aparezcan rumores 
consistentes aqui y en Inglaterra de que se esta 
preparando algo similar, aunque fuera la unica 
vez que la companfa de J. L. Dominguez ha 
secundado y prestado apoyo a tales estrategias. 
Por desgracia, ha habido una segunda vez, 
menos ostentosa, pero igualmente discutible. La 
estrella invitada se llamaba CPC 472 y 
obviamente ya ha pasado a engrosar la lista de 
CPCs difuntos. 

El 472 nacio como la respuesta de Indescomp a 
la discutida «Ley de Homologacion», la cual 
requerfa que los ordenadores con menos de 64 
Kbytes de memoria reunieran una serie de 
caracterfsticas. Cuando el decreto se publico en el 
BOE, el 664 yacfa en el Limbo de los Justos, pero 
464, en aquel momento mucho mas importante 
para Indescomp que el 6128, podia verse afectado 


Indescomp guarda absoluto 
silencio sobre el futuro de 
los CPC. 


por la inoportuna legislature. El remedio se 
encontro instantaneamente: Cojase un 464, 
pongasele 16 Kbytes mas de memoria, cuya 
utilidad real es al menos relativa, y nace un 464 
cjue se salta el incomodo asunto muy 
elegantemente. De nuevo tenemos el mismo 
panorama que en el caso del 664. Este 
ordenador, que no fue publicitado por razones 
obvias, se vendio, al que lo quisiera comprar, en 
centres tan importantes como El Corte Ingles. 
Cuando unas modificaciones de la ley antedicha 
hicieron innecesaria su ulterior existencia, el 472 
desaparecio del mapa tan silenciosamente como 
habfa venido, dejando en posicion dudosa a todos 
aquellos que lo habfan adcjuirido. Excuso decir 
que la memoria extra de este ordenador puede 
llegar a causar serios problemas de 
incompatibilidad con ciertos programas y 
perifericos, como los usuarios del mismo saben 
muy bien. Si pretendemos ser objetivos, hay que 
reconocer, muy gustosamente por cierto, que a 
estos desagradables acontecimientos han seguido 
otros de un cariz muy distinto. Nada hay que 
objetar al CPC 6128 ni a los PCW, ni por las 
condiciones de su lanzamiento, ni por su calidad, 
ni por sus prestaciones, que responden 
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perfectamente a la filosofia que encarnan. Sin 
embargo, tratando de ser objetivos de nuevo, el 
historial anterior pesa cuando comienzan a 
suceder una serie de cosas sorprendentes, que 
Indescomp no ha creido conveniente aclarar o tan 
siquiera abordar. 

Las cosas sorprendentes son las que siguen: 

a. Proximo lanzamiento del Spectrum Plus 
III. 

b. Bajada de precio de un 12 por 100 de 
todos los ordenadores Amstrad. 

c. Nuevo modelo PCW 8256 con impresora 
de margarita. 

d. Se deja de fabricar el PCW 8512. 

e. Aparece un nuevo modelo de Amstrad 
PC, el PC 1640. 

Dentro de muy poco tiempo, el nuevo 
Spectrum Plus III estara en la calle —en 
septiembre—, a un precio aproximado, en 
Espana y en Inglaterra, de unas 40.000 pesetas. 
Este ordenador es el hermano gemelo del 6128: 
posee, como el, 128 Kbytes de Ram y unidad de 
disco incorporada. Asl, a bote pronto , resulta 
evidente la colision inevitable en el mercado entre 
esta 

maquina y los CPCs, especialmente el 6128. {O no? 

,;Cual es la idea de Indescomp al respecto? 
^Tienen los miles de usuarios 
del 6128 motivos para 
preocuparse? Hasta ahora, solo 
hemos obtenido silencio. 

El segundo punto es aun mas 
inquietante. Hace unas cuantas 
semanas, Dominguez organizo 
en el Scala Melia de Madrid una 
fiesta, solo para sus 
distribuidores, en la que se les 
comunico que, a partir de ese 
momento, todos los ordenadores 
Amstrad experimentaban una 
bajada de precio del 12 por 
100; es decir, Indescomp los 
vende sin IVA a los 
distribuidores. Esta informacion 
nos ha sido confirmada por el 
Departamento de Informatica 
de Galenas Preciados, entre 
otros. 

De nuevo, se plantean 
muchas preguntas. La esencial 
es: la bajada de precios, 

^obedece a una maniobra 
normal relacionada con 
disminucion de costos de 
fabricacion o algo asi? o, por 
el contrario, ^tiene esto algo 
que ver con la supuesta 
liquidacion en breve plazo de 
los CPCs, y se trata de 
liberarse del excedente de 
ordenadores cuanto antes? La 
gota que colma el vaso, sin 


INFCRMIE 


embargo, es la desaparicion a hurtadillas del 
Amstrad PCW 8512. De pronto, sin mas ni mas, 
se deja de fabricar. Sin aviso, sin explicacion y 
sin aclarar ni a los usuarios ni a nadie si 


VIAJE 

A NINGUNA 
PARTE 


Starring: 

PCW 8512 

Produced by: 
Alan Sugar 

Directed by: 

J. L. Dominguez 
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La desaparicion del CPC 664 
fue planeada desde el 
principio por Alan Sugar. 


INI=CI?MIE 


En vista de la negativa en redondo por parte de 
Amstrad en cuanto a aclarar posturas, nos hemos 
dirigido a distrubuidores y vendedores ingleses de 
estos productos. Su respuesta ha sido unanime: 
poseen existencias mmimas de CPCs, han 
realizado nuevos pedidos, pero no han recibido 
informacion alguna de Amstrad ni en un sentido 
ni en otro. Por tanto, se ven obligados a esperar 
acontecimientos. Los distribuidores espanoles nos 
comunican exactamente lo mismo. Con 
Indescomp, las cosas estan peor, pues al menos 
Amstrad nos ha contestado, si bien de forma 
laconica y evasiva. No hemos tenido tanta suerte 
con la compama que dirige Jose Luis Dominguez 
Todas nuestras preguntas, repetidas muchas 


Indescomp va a seguir proporcionando soporte a 
nivel de hardware y software a acjuellos que ya lo 
posean. ^Vamos a vivir por tercera vez la misma 
tragedia griega que en el caso del 664 y del 472? 

Como el lector puede suponer, identicas dudas 
se insinuan en el caso del nuevo Amstrad CPC 
1640, un ordenador con 640 Kbytes de Ram y una 
tarjeta de graficos compatible con la EGA de IBM. 

De momento, senores, tenemos un nuevo 
PCW 8256 con impresora de margarita, como 
Indescomp hizo saber en su dfa a traves de sus 
medios oficiales de comunicacion, y nos hemos 
quedado sin el venerable PCW 8512, como 
Indescomp no hizo saber a traves de ningun sitio. 

La unica forma segura de desenredar la 
madeja es acudir a las fuentes, y nadie debe 
saber mejor lo que esta sucediendo que Amstrad 
en Inglaterra e Indescomp en Espana. Hemos 
tratado de obtener informacion directa de ellos, y los 
resultados no han podido ser mas desalentadores. 
Puestos en contacto con Mr. Robert Meadows, 
portavoz oficial de Amstrad Consumers Pic, este 
senor nos ha manifestado que «Amstrad no 
acostumbra hacer comentario alguno sobre 
rumores», ni una palabra mas, lamentablemente. 


Respuesta de Inglaterra: 
Amstrad no hace comentario 
alguno sobre rumores. 


veces, tanto por telefono como por escrito han 
quedado sin respuesta de forma absoluta: ni 
confirmacion, ni desmentidos. Nada. Solo dos 
personas saben el futuro que ies espera a los 
miles de usuarios de los Amstrad CPC, del PCW 
8512 y del CPC 1512: Alan Sugar y Jose Luis 
Dominguez, pero guardan un silencio total. 
Resulta diffcil extraer una conclusion de toda la 
informacion que hemos podido reunir sin caer en 
dos extremos igualmente negativos: preconizar el 
desastre o dormirnos en la mas Candida 
ingenuidad. Basandonos en la trayectoria seguida 
por Indescomp hasta ahora, en cuanto a su 
polltica de cambio y renovacion de modelos (mas 
propia de Atila que de Macjuiavelo), cuyos tristes 
ejemplos, el 664 y el 472 estaran muy frescos en 
la memoria de muchos usuarios, junto con la 
liquidation sin previo aviso del PCW 8512, 
creemos cjue hay serios motives para preocuparse 
hasta tanto Indescomp no aclare su postura de 
manera definitiva y explique aquello que la gente 
que compra sus ordenadores tiene derecho a saber. 

Desde estas paginas, instamos amistosamente a 
Indescomp a que abandone su silencio y su 
polltica faraonica de aniquilar a golpe de decision 
brusca y sorpresiva hasta el recuerdo de 
maquinas que hoy cumplen un papel decisivo en 
los hogares y despachos de muchas personas. 

^A que viene ese silencio? 
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FAIRLIGHT 

de Soft Express 
P.V.P.: 2.600 ptas. 

«No se puede decir que 
ocurriera de la noche a la 
manana. Hubo un tiempo en 
que la tierra de Fairlighi era 
un hermoso lugar poblado 
por una raza alegre 
gobernado por grandes reyes 
y reinas. 

»Pero llego el ocaso de la 
belleza. Los lideres eran cada 
vez mas debiles. La luz 
estaba desapareciendo.... 

»Los libros de historia 
escritos por los Elders 
hablaban de una tierra de 
paz, rnusica y jovialidad. 

»Donde parecia que el sol 
brillaba mas cada dia, en un 
cielo limpio. 

»Una tierra donde la 
magia estaba en todas partes, 
tanto en las cosas como en 
las personas. 

»Nadie podia explicar con 
exactitud lo que iba mal, 
pese a que no pocos 
chismosos del pueblo estaban 
dispuestos a ello. 

»Por una parte estaba 
Gerion, el poderoso lider de 
ocho pies de alto, que llevo a 
su pueblo a una devastadora 
guerra. 

»Odgar remplazo al mitico 
Gerion solo para prohibir lo 
mas rapidamente posible 
todo estudio de la ciencia, la 
rnusica y las arcanas artes 
magicas. 

»Siguio entonces una 
sucesion de debiles reinados 
desde Reth hasta Lefoine que 
permitieron caer a la orden 
Pristina en el caos y el 
oscurantismo. E incluso 
cuando un, aparentemente, 
buen lider aparecio muchas 
generaciones mas tarde, sus 
propias gentes lo asesinaron. 

»Fue t sintoma final de 
decadencia y fueron muchos 
los cjue por esa epoca 
desaparecieron y 
abandonaron Fairlight por las 
lejanas tierras del otro lado 
de las montanas Cynwulf. 

»Solo el castillo Avars se 


mantenia silenciosas en las 
planicies de Avarlund. La 
ultima morada de un rey de 
Fairlight, el rey Avars, del 
que alguien dijo que fue rey 
cuando la tierra estaba 
impregnada de magia, antes 
del desastre... 

»Antiguas leyendas 
hablaban de que en las 
tierras interiores todavia 
vivian los altos antepasados 
de los habitantes de Fairlight, 
donde brillaria una perpetua 
primavera. Alii viviria Segarl 
el Inmortal, esperando el 
momento de traer la luz otra 
vez a la tierra. 

»Pocos hacian, caso a estas 
leyendas en estas epocas de 
feudalismo, donde los 
comerciantes y los varones 
imponian su poder, si es que 
alguien podia hablar de 
poder en esta tierra 
dividida...» 

Asi comienzan las cronicas 
de las tierras de Fairlight, un 
mundo de magia y sorpresas. 

Representa el maximo 
avance en los programas de 
aventuras graficas 
tridimensionales, con tecnicas 
nunca vistas antes en 
ordenadores personales. 

Todos los objetos que 
aparecen por la pantalla 
tienen sus propias 
caracteristicas. Puedes mover 
la mayoria de los objetos, e 
incluso apilarlos. 

Los objetos tienen 
caracteristicas reales, como 
peso, inercia y, a veces, 
cierto grado de inteligencia. 

Ademas, tu personaje, el 
heroe Isvar, tiene cinco 
bolsillos donde puede meter 
hasta cinco cosas. Lo que 


lleves depende del peso de los 
objetos. 

Como puedes suponer no 
iras a la misma velocidad 
llevando una Have que un 
pesado tonel. 

Esta revolucionaria tecnica 
se ve acompanada de 
espectaculares graficos 
tridimensionales de los 
cuartos y las cavernas. 

El resultado total es un 
«realista» castillo, con 
cavernas que podras explorar 
libremente. 

jPero manten tus ojos bien 
abiertos! Como en la vida 
real no todo es lo que parece 
a simple vista. Muchos 
objetos tienen usos magicos. 

Te Uevara varias semanas 
resolver este juego, asi que 
no esperes ver todo lo que 
Fairlight puede ofrecerte en 
una tarde. 

CRACKER 

de Ofites Informatica 
P.V.P.: 20.000 ptas. 

Las calculadoras de bolsillo 
se han convertido en una 
poderosa e indispensable 
herramienta para un gran 
numero de personas, a pesar 
de que solo son capaces de 
trabajar y de representar un 
numero en su pantalla por 
cada paso. 

Son muy utiles, ya cjue en 
la vida cotidiana hay muchas 
cosas que pueden describirse 
correctamente con un solo 
numero. 

Sin embargo, hay muchas 
mas cjue pueden expresarse 
de una forma mas completa 
y extensa a traves de una 
tabla o una sucesion 
numerica ordenada 
adecuadamente. 

El Cracker es un programa 
destinado al calculo de 
representacion de datos 
numericos o alfabeticos en 
forma de tablas. 

A partir de una tabla vacia 
u hoja de calculo predefinida, 
dividida en celdas o «casillas» 
identificadas por filas y 
columnas, con un simple 
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conjunto de comandos, puede 
establecer formulas que 
relacionen unas filas con 
otras, o bien columnas con 
columnas, de forma que el 
ordenador pueda calcular los 
resultados de toda la tabla en 
pocos segundos. 

Tambien se pueden 
introducir datos alfabeticos o 
nombres en determinadas 
casillas y por el simple hecho 
de variar algunos de los 
parametros existentes, 
recalcular y representar la 
tabla con los nuevos valores 
obtenidos para las diferentes 
situaciones inmediatamente. 

Esto le proporciona una 
podedorfsima herramienta de 
calculo cuando los datos son 
muy complejos. 

A. Introduccion de datos y 
textos: 

Se debe pensar que el 
Cracker es como una hoja de 
trabajo en la que se pueden 
definir textos y datos 
numericos. 

Pueden realizarse cuatro 
tipos de introducciones en el 
Cracker, textos, datos, 
formulas o comandos. 

Ademas, permite cargar 
solo la parte de la hoja 
necesaria para el trabajo. 

Puede cargar varias hojas 
con modelos distintos, cada 
una a la vez. 

Asimismo puede importar 
y exportar datos de bases de 
datos o tratamientos de 


NECESITAMOS personas 

que conozcan profundamente 
lenguaje ensamblador del Z80 y 
dominen los ordenadores Amstrad 
CPC desde el punto de vista del 
Lenguaje Maquina. 

Si usted es uno de ellos pongase en 
contacto con nosotros rapidamente 
en la direccion que se indica a 
continuacion, poniendo en lugar 
muy visible del sobre. 

Referenda 
Codigo Maquina 
AMSTRAD Semanal 
Nuestra direccion es: 

AMSTRAD Semanal 

Carretera de Irun, km 12,400. 
Fuencarral. 28049 Madrid. 



textos, como Delta y New 
Word. 

B. Funcionamiento del 
Cracker: 

La autentica potencia de 
las hojas de calculo comienza 
a ser efectiva con la 
utilizacion de formulas en las 
respectivas filas, columnas o 
celdas que generen los datos 
necesarios en su tabla. 

Cuando construya sus 
formulas debe pensar que las 
celdas de referencia son 
variables y que la formula en 
sf no es mas que una 
expresion algebraica que 
puede utilizar estas variables 
combinadas con constantes a 
traves de operadores 
aritmeticos. 

Una formula puede 
aplicarse a una celda en 
concreto, o bien repetirse a 
lo largo de una fila o 
columna o por todo un 
conjunto de ellas. 

El Cracker permite la 
posibilidad de programar 
procedimientos, como en 
Pascal. 

Asimismo, se puede 
programar dentro de las 
celdas o los bloques con las 
estructuras if-then-else y 
do-while. 


Tambien posee gran 
numero de funciones 
estadisticas como PERM 
(n,r), COMB (n,r), FACT 
(Valor), ST DEV, VAR y 
AVERAGE. 

Tiene gran numero de 
mensajes de pantalla, que 
explica lo que esta pasando 
en cada momento de la 
ejecucion. 

Los modelos de trabajo se 
graban en un fichero de 
seguridad llamado segurity 
mem para evitar perdidas de 
datos. 

C. Capacidad grafica: 

A diferencia de otras hojas 
de calculo, Cracker le permite 
obtener 16 diferentes tipos de 
representaciones graficas 
distintas, como graficos de 
barras, pastel, puntos, lfneas, 
etc. 

Permite hasta un maximo 
de 64 columnas y hasta 1.024 
lfneas, pudiendose insertar 
hasta 255 lfneas a la vez. 

La anchura minima de la 
columna es de un caracter y 
la maxima de 30. 

Permite imprimir 
etiquetas, lo cual es de 
maxima utilidad para el 
envfo de cartas. 

CP/M SHELL 

de Cimex Electronica 
P.V.P.: 3.500 ptas. 

Para aquellos usuarios que 
temen enfrentarse con el 
CP/M, Cimex Electronica ha 
sacado al mercado un 
programa de ayuda al 
usuario. 

En realidad, el CP/M Shell 
no es un programa operativo 


NECESITAMOS personas 

que conozcan profundamente lenguaje ensamblador del 8086/8088 y 
dominen los ordenadores compatibles IBM PC desde el punto de vista del 
Lenguaje Maquina. Se valoraran en gran medida conocimientos acerca del 

DOS. 

Si usted es uno de ellos pongase en contacto con nosotros rapidamente en 
la direccion que se indica a continuacion, poniendo en lugar muy visible del 

sobre: 

Referencia DOS AMSTRAD Semanal 
IMuestra direccion es: 

AMSTRAD Semanal 

Carretera de Irun, km 12,400. Fuencarral. 28049 Madrid. 
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por si mismo, sino que su 
finalidad consiste en hacernos 
mas facil el trabajo con las 
multiples utilidades que nos 
ofrece el sistema CP/M. 

Es decir, que el principal 
interes que nos ofrece este 
programa es su facilidad de 
manejo. 

El funcionamiento del 
CP/M Shell se realiza a traves 
de los cursores mediante 
opciones de menu, lo que 
simplifica enormemente su 
manejo. 

El CP/M Shell requiere 
para trabajar preparar un 
disco con las utilidades a 
usar del sistema CP/M, 
como Dir, Erase, Rename, 
Setkeys, Type, Date, Get, Help, 
etc. 

Todas las utilidades que 
nos ofrece Shell vienen 
presentadas en una unica 
pantalla de trabajo. 

En la lfnea superior 
podemos ver un menu con 
los cinco modos de trabajo: 

— Directono: nos ofrece un 
directorio del disco 
seleccionado en el que 


estamos trabajando. Es una 
opcion semejante al Dir del 
CP/M. 

— CP/M + Util: con esta 
opcion accedemos a las 
utilidades del sistema CP/M, 
pero con la facilidad de 
hacerlo mediante los 
cursores. 

— Utilidades de Amstrad: 
ahora podemos acceder a las 
utilidades propias de este 
ordenador. 

— Disck Select: este 
apartado del menu nos 
permite seleccionar la unidad 
de disco con la cjue vamos a 
trabajar. 

— CCP Command: en 
determinados momentos nos 
puede interesar introducir 
manualmente los comados 
del sistema. Con la presente 
opcion es posible prescindir 
de la aplicacion. 

Para cambiar de opcion 
basta con moverse por la 
pantalla con las flechas del 
cursor. 

En resumen, un programa 
que si bien no destaca 
precisamente por su 


expectacularidad, si resulta 
interesante en cuanto a la 
comodidad con la que nos 
permite manejar el sistema 
CP/M. 


fairlight 

Softh Express 
Duque de Fernan Nunez, 2, 

4 4 

28012 Madrid 
Tel. (91) 228 68 13 

CRACKER 11 

Ofites In/wnw^ 0 0 
Avda. Isabel II, lo, 

90011 San Sebastian 

Tel (943) 45 55 44 

CP/M SHELL 

Cimex Electronic^ 

Floridablanca, 54, e 

3-A 

08015 Barcelona 

Tel (93) 424 34 22 



Con el fin de acelerar lo mas posible el correo, y pocler resolver o contestar a 
todas las dudas y sugereni ias que llegan a nuestra redaction, a partir de esta semana 
os rogamos, en beneficio de todos, consignar en el sobre, en lugar bien visible, una 
de las denominaciones siguientes: 

— Suscripciones AMSTRAD. Para todos aquelos casos relacionados con petition 
de eintas, numcros atrasados, formalization de suscripciones, devoluciones, etc 

— Mercado Comun AMSTRAD. Compras, ventas, intercambios, clubs... 

— Serie Oro AMSTRAD. Para los programas que nos envieis para su 
publication. 

— Sugerencias AMSTRAD. Para vuesltas criticas, sugerencias o cualquier 
opinion que querais vertir sobre la revista. 




















Sin duda 


ALGUNA 


Listado poco claro 

Le mando un listado del 
programa Rein] Digital de la 
revista numero 46 pagina 20. El 
error esta en la linea 150 y no 
soy capaz de descubrirlo. La 
linea 150 es la siguiente: 

150 WINDOW 
10.30.5,2,9,22,5:PAPER 
11:CLS 

Jose Alemany Andres 

En reahdad, lo que ocurre es muy 
sencillo. Usted ha confundido unos 
puntos decimates cm comas. La linea 
150 correcta, tal cual aparece en la 
revista numero 46 pagina 20 es la 
siguiente: 

150 WINDOW 

10,30.5,2.9,22.5.-PAPER ll.CLS 

Programas 

que no funcionan 

Tengo un CPC 6128 y 
acostumbro a pasar algunos 
programas de vuestra revista 
con la intention, entre otras, de 
ver como se resuelven algunas 
situaciones. Con los que vienen 
en Basic practicamente no tengo 
problemas, pero con las rutinas 
en Codigo Maquina la cosa se 
complica, piles, por el 
momento, estoy limitado al 
listado Basic y cuando me 
fallan, una vez revisado, no se 
por donde meterles mano. 

El primer caso que os 
expongo es el de el numero 40, 
pagina 14 a 16 de reduccion de 
pantallas graficas. 

En cuanto llamo a la rutina 
mediante CALL &A000,N el 
ordenador se resetea como en el 
momento de conectarlo. ,;D6nde 
esta el problema? 

El segundo es del numero 36, 
pagina 18 a 20, Copycat. 

El paso de cinta a disco lo 
realiza perfectamente, pero de 
disco a cinta, una vez que 
termina de cargar el primer 
bloque en la cinta, la pantalla 
se borra y el ordenador se 
queda «colgado». 

El tercero es el del numero 
27, pagina 12 a 16, Copy de 
pantalla de impresora. 

Los dos nuevos comandos me 
funcionan, pero ninguno de los 
dos consiguen la copia exacta. 
tA que se debe? (Os adjunto 
unos ejemplos de como me 
salen.) 


El cuarto es el numero 23, 
pagina 24 a 27, Windowkey. 
Tengo problemas si intento 
definir alguna tecla con CAT, 
supongo que por interferirse con 
la zona de memoria que utiliza 
el disco. ,;Tiene arreglo? 

Os envio el listado de todos 
ellos. Seguramente habra algtin 
error a pesar de que los he 
revisado varias veces. 

Por ultimo, ^podriais 
aconsejarme que programa es el 
mas adecuado para la 
programacion en Codigo 
Maquina? Con tanta publicidad 
uno no sabe realmente lo que 
debe hacer. 

Carlos Diaz-Pintado 

Usted nos plantea varies tristes 
casos de programas que no le van. 
Como era de esperar, se trata de 
aquellos en los que el Codigo 
Alaquina priva total o parcialmente 
sobre el Basic. Por desgracia, no nos 
da la suficiente information para 
responder algo concreto, salvo que 
esos programas se han comprobado y 
no detectamos ningun error. 

Respecto al programa Copy de la 
rcvista numero 27, solo funcionard 
para irnpresoras Epson y 
compatibles. Si la suya no lo es, la 
cosa ira a francos y barrancas, con 
un comportamienlo impredecible del 
programa. 

Respecto a Windowkey, del 
numero 23, no debe existir problema 
alguno en meter en una tecla de 
funcion el comando CAT. Teclee 
simplemente: KEY N, 

“CAT + CHR$(13), en donde N 
es el numero de tecla de funcion que 
usted desee. 

En nuestra opinion, el mejor 
programa ensamblador que existe hoy 
por hoy es el Hisoft 'Devpac. 

Aunque nadie lo comercializa en 


nuestro pais, tal vez la gente de 
Ofites Informdtica pueda darle razon 
ya que ellos distribuyen otros 
productos de la casa Hisoft. Tel. 
(943) 45 55 44/33. 


Un lector ofendido 


Estimados senores de 
AMSTRAD. Es una pena y 
una vergiienza que enganen al 
pobre contribuyente haciendo 
que compren todas las semanas 
su revista, y tambien las 
mensuales. Y que pongan 
ustedes los programas que 
ponen, porque en la mayorfa, 
cuando no se comen 
numeraciones, los equivocan 
ustedes para comprar sus cintas 
ya grabadas. 

Pero, ^no piensan ustedes que 
lo que la mayorfa de nosotros, 
los ninos, lo que queremos es 
teclear programas para aprender 
a manejar el ordenador y coger 
rapidez en las manos? Pero 
resulta que cuando terminas el 
programa te encuentras, no con 
el Syntax Error, sino con Patas 
Exhausted, Improper 
Argument, Line Does Not Exit, 
Diret Command Found, etc. 
Realmente, es una pena que la 
mayorfa de las revistas de 
programas esten ash 

Tengo todas las revistas hasta 
hoy, la numero 60, y se lo 
puedo demostrar ; tambien poseo 
Amstrad User y AMSTRAD 
Especial, teniendo que dejar de 
comprarlas por todas las 
anomallas que ellas traen. Por 
suerte, en el mercado ya han 
salido nuevas revistas y 
sintiendolo mucho tendre que 
dejar de comprar AMSTRAD. 

Me llamo M. a Teresa 
Rivera, y tengo 13 afios, y si 
ustedes me dicen que los 
programas los he tecleado mal. 
vengan a mi casa y les ensenare 
las revistas equivocadas y 
ustedes lo juzgaran. 

M. a Teresa Rivera 

Nuestra amiga Maria Teresa, de 
13 anos de edad, nos envia una 
furibunda carta en la que creemos que 
exagera, al menos algo. Maria, te 
varrws a contar el procedimiento que 
se sigue desde que un programa llega 
a nuestras manos, hasta que se 
publica el listado en la revista. 
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Primero, el programa en cuestion se 
prueba en nuestros ordenadores, para 
ver que, en efecto, funciona. 

Una vez hecho esto, directamente 
del ordenador se saca un listado por 
impresora, el cual se Jotografia y se 
publica en la revista. Como ves, si 
funciona, no pasa por manos 
humanas en ningtin mornenlo. Eso 
quiere decir que la posibilidad de 
error es muy pequeha. No obstante, 
existe, y a veces nos hemos 
equivocado, publicando la 
rectificacion oportuna siempre que 
hemos sido capaces de detectarla, o 
que algun lector, con palabras 
irritadas o amables nos lo han hecho 
saber. Una cosa mas: comprendemos 
tu desilusion, pern, nos creas o no, el 
90 por 100 de los programas que 
«no funcionan» se deben a errores en 
su tecleo, y el restante 10 por ciento, 
es culpa nuestra. Por desgracia, no 
podemos ir a tu casa para 
demostrartelo, como sugieres, pern si 
te pones en contacto con nosotros te 
enviaremos por correo una cinta de 
cassette que contengan todos los 
programas que no te funcionan junto 
con su correspondiente listado por 
impresora, para que puedas 
compararlo con el que tu tienes. Si 
en alguno de ellos nos hemos 
equivocado nosotros, cosa posible, 
recibe por anticipado las disculpas de 
la redaccion de AMSTRAD 
Semonol en pleno. Un carinoso 
saludo Maria Teresa. Esperamos 
recibir noticias tuyas pronto. 

Como cargar 
los cargadores 

Soy un usuario de un 
Amstrad CPC 464. Os escribo 
para que me aclareis una duda 
sobre como cargar cargadores 
de juegos, ya que lo he 
intentado con varios sistemas de 
grabar y no me ha salido nada. 

Jorge Martinez Martin 

Te hubieramos respondido con 
mayor exactitud si nos indicaras de 
que cargador se trata De cualqmer 
forma, alia va. 

La idea es teclear cuidadosamente 
el cargador y salvarlo en cinta o 
disco antes de ejecutarlo. 

Despues, mete en el cassette el 
juego y simplemente teclea RUN. Se 
supone que en este momento tienes el 
cargador en la memona. 

Para los juegos en disco, primero 
asegurate que el cargador estd 


pensado para un juego en disco. La 
mayoria de los nuestros solo 
funcionan con cinta. 

Una vez hecho esto, teclea el 
cargador, y de nuevo, antes de 
ejecutarlo, metelo en el mismo disco 
donde estd el juego. Despues, teclea 
RUNy debe funcionar. 

revista numero 46 pdgina 20, es la 
siguiente: 

10,30,5,2,9,22,5,PAPER:11:CLS 


El comando Erase 
en CP/M 


Poseo un Amstrad CPC 6128 
y desearia me facilitasen un 
programa en Basic que hiciera 
la misma funcion que Erase en 
CP/M, es decir, que sirva para 
borrar ficheros del disco sin 
tener que estar cargando el 
sistema operativo y cambiando 
de disco cada vez que haya que 
suprimir ficheros. 

La idea es tenerlo en todos 
los discos grabado y acceder a 
el con comodidad en el 
momento en que se necesite y 
sin mucho costo de espacio, ya 
que solamente pasar el CP/M 
(C10CPM3.EMS) al disco 
consume 25 K, aparte los 4 K 
que se lleva Erase 
(ERASE.COM). 

Jose Cabrera Ruiz 


Creemos haber entendido, del 
contenido de su carta, que su 
problema estnba en borrar ficheros de 
los discos sin tener que cargar 
constantemente el sistema operativo. 
Bien, asi, a ojo, no parece que la 
cosa llegue a mayores. Usted sabe 
que el Amstrad 6128 usa dos 
sistemas operativos: el CP/M y el 
Amsdos. El primero debe cargarse de 
disco, pero el segundo es residente en 
memoria y se puede utilizar al 100 
por 100 nada mas encender el 
ordenador. Entre los comandos del 
Amsdos existe uno llamado «ERA» 
que, como puede suponer, cumple 
exactamente la misma funcion que el 
del mismo orden bajo CP/M. La 
t'mica diferencia estd en la sintaxis. 
Por ejemplo, para borrar desde 
Amsdos todos los ficheros de un disco 
con la extension “DAT”, habria 
que teclear: 

lERA, “*.DAT 
Un posible metodo de trabajo 


seria, antes o despues de pasar a 
CP/M, usar este comando para 
borrar rapidamente todos los ficheros 
que quiera de sus discos. 


Desde la ventana 

Poseo un Amstrad CPC 6128 
y, como todos saben, dentro de 
su Basic no entran las 
instrucciones Width ni la potente 
Swap. Pero si dentro de una 
linea de programa se incluyen 
en minusculas, al hacer un 
listado me las ha pasado a 
mayusculas como si se tratara 
de una orden mas. ,;A que es 
debido esto? ^Pcr que al 
ejecutar el programa me da 
Sintax Error? 

,;C6mo puedo utilizar los 
cargadores del Army Moves y del 
Game Over que habeis publicado 
en vuestra revista? Las 
direcciones de memoria son 
distintas y por mas que lo he 
intentado no he podido 
conseguirlo. 

Por ultimo, quisiera saber 
como se puede pasar la cuarta 
pantalla del Goonies, esa de la 
calavera y de los huesos 
colgando. 

Diego Hernandez 

Lo que ocurre es lo siguiente: la 
orden “SWAP” forma parte de otro 
comando, el “WINDOW SWAP”, 
que sine para intercambiar, dicho 
muy grosso modo, dos ventanas. El 
caso es que el Basic reconoce esta 
palabra como perteneciente a su 
dicaonario, y por eso la coloca en 
mayuscula en el listado. Sin 
embargo, el interprete no se da cuenta 
del error de sintaxis hasta que intenta 
ejecutar el programa. En cuanto a la 
orden “WIDTH’ \ si que existe en 
el lexico del 6128, pero no se puede 
usar en el listado de un programa. 
Sirve para controlar la anchura de 
las lineas sacadas en la impresora. 

El ordenador lo pone en mayusculas 
por la misma razon que antes, pero 
no nos preguntes por que no se puede 
incluir en un listado. Cosas de los 
creadores del interprete de Basic. 

Respecto a los cargadores de los 
juegos que nos mencionas, el 
problema puede estar en que se trate 
de usarlos para los juegos en disco. 
No funcionaran. El segundo 
inconveniente surge si las copias del 
juego son piratas. Tampoco ira 
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Jhsta section esta dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores. 7 odo aquel que lo 
desee puede enviarnos su anuncio, mecanografiado, a: HOBBY 
PRESS, S.A. AMSTRAD Semanal. Apartado de Correos 232 
Alcobendas. Madrid. 

;ABSTENERSE PIRATAS! 


Mercado 


CCMJN 


Vendo Amstrad CPC 6128 
color, perfecto estado, disco con 
utilidades, Amsfile, Gompilador 
Pascal, CP/M Plus, CP/ 2.2, 
Ajedrez 3 D, 4 diskettes... Todo 
por 90.000 ptas. Llamar a Jorge, 
tel. 404 93 26 (Madrid). 


Por cambio de ordenador 
Vendo a mitad de precio, para 
el 6128: Fundas monitor y 
teclado, cables separacion 
teclado y monitor, cables 
conexion cassette, archivadores 
discos, lapiz optico The Electric 


Studio (5.000 ptas.), Protext: 
procesador de textos profesional 
en ROM (4.000 ptas.), 
Programas como Wordstar, 

DBase II, Brainstorm, DR Draw, 
DR Graph (2.500 ptas.), Tasword 
6128, Tasprint, Tascopy, Oddjob, 
Transmat, ART Studio, Music 
System, Mini Oficce II, etc., 

(1.500 ptas.), curso 
autodidactico Basic, 2 tomos y 4 
cintas (3.500 ptas.), coleccion 
completa de MICROHOBBY 
AMSTRAD Semanal (cada 20 
numeros y sus correspondientes 
cintas 3.000 ptas.), otras 
revistas AMSTRAD y mas 
cosas... 

Llamar a Javier: 231 52 60: 
Hasta las 4 de la tarde o a partir 


de las 10:30 noche. 

j Ah!... Y una mipresora 
Seikhosa SP1000-CPC; la ideal 
para los Amstrad de la serie 
CPC; con funda; cinta; cable... 
por 50.000 ptas. 

jjjRebajo en la compra de 
todo el lote!!! 


Cambio Aguilas del Espacio, 
Plaga Galactica, Finders Keepers, 
Three Weeks in Paradise y Viernes 
13 (disco) de la siguiente forma: 
los tres primeros poor un juego 
en cinta, los cuatro primeros 
por un juego en disco o dos en 
cinta, Viernes 13 en disco por 
otro en disco o dos en cinta y 



“Sabado Chip”, de 17a 19h. 














BOUTIQUE DEL ORDENADOR 


AMSTRAD PCW ... 69.500 
AMSTRAD 464 .... 39.500 

Procedentes de exposicio- 
nes o cambios. Garantizados, 
impecables. 

Consulte para unidades de 
disco, impresoras, etc... 

ENVI'OS A TODA ESPANA 
Tel.: (91) 416 13 02 (tardes) 


Vendo programas para 
Amstrad 6128/8256. Poseo 
juegos y utilidades. Interesados 
podeis llamar por las noches al 
tel. (93) 890 .38 40. Francisco. 


Vendo programas para todos 
los CPCs de Amstrad. Poseo 
unos 500 tltulos de todo tipo. 


Ultimas novedades en juegos, y 
buenas utilidades. Interesados 
escribir a: Bernardo Cruz Molina. 
Francisco Pizarro, 14. 02004 
Albacete. O bien llamar al tel. 
(967) 22 03 51, de 2 a 4 de la 
tarde y a partir de las 9 de la 
noche. 


Grupo de amigos 
intercambia, vende o compra 

revistas, libros, mapas de 
juegos, programas, etc., para 
Amstrad, Spectrum, MSX o 
Commodore. Escribir a: Emilio 
Garda Rosello. Travesla de Vigo, 
257, 4.° D. 36207 Vigo 
(Pontevedra). 


Deseo contactar con usuarios 
de Amstrad PCW 8256 512 
para intercambio de programas: 
Multipldn, dBase II, Dr. Graph y 
los juegos Torres de Hannoi, 
Jhosua. Compro interface RS 
232 Centronics de Amstrad. 


Interesados llamar al tel. (93) 
399 25 30 de Badalona 
(Barcelona). 


Desearfa contactar con 
usuarios del Amstrad PC 1512, 
para intercambio de trucos e 
ideas. Escribir a: Miguel Borrego. 
Abad Racimir, 11. Olot 
(Gerona). 


...TE CREES 
MUY VALIENTE? 

( 11 ) 733 72 63 


i 




Todos los sabados, de 5 a 7 
de la tarde, en “Sabado Chip”. 
Dirigido por Antonio Rua. 
Presentado por Jose Luis 
Arriaza, hecho una 
computadora. Dedicado en 
cuerpo y alma al ordenador, 
y a la informatica. Haciendo 
radio chip... estilo Cope. 
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Mercado 
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Desearia comprar, vender o 
cambiar programas de todo 
tipo; juegos comerciales como 
Army moves, Game over, 

Commando, etc. Tambien 
dispongo de utiles (CP/M 2.2). 
Para Amstrad CPC 6128/464; 
disco y cassette. Escribir o 
llamar a: Borja. Ugasko, 5, 5 A. 
48014 Bilbao. Tel. (94) 

447 19 15. Enviar lista. 


Cambio, vendo programas 
para el PCYV 8256, utilidades, 
compiladores, juegos. Llamar al 
tel. 274 47 07, Angel. 


Cambio monitor verde para 
Amstrad CPC por monitor en 
color. Puedo pagar la diferencia 
en programas: base de datos, 
hoja de calculo, tratamientos de 
textos, copiones, juegos, etc. 
Interesados ponerse en contacto 
con: Heliodoro Lozano Fernandez. 
Tel. (93) 231 03 66. 


Intercambiarla todo tipo de 
programas (utilidades, juegos, 
pokes e ideas), con usuarios del 
Amstrad CPC 6128, poseo mas 
de 400 progamas entre ellos las 
ultimas novedades en disco o en 
cinta. Prometo contestar a todos 
con rapidez y, por favor, 
mandar lista. Escribir a: Jose 
Enrique Sanchez Hurtado. Torres 
Quevedo, 3, 3.° C. 02003 
Albacete. O bien, llamar al tel. 
(967) 23 49 88. 


Desearia contactar con 
usuarios de Amstrad para el 
intercambio de programas, 
utilidades, juegos, ideas. Estoy 
interesado en conseguir el 


manual de CBasic en Castellano, 
pago los gastos. Interesados 
escribir a: Delio Otero Perez. J. 
Antonio, 8. Salceda de Caselas. 
36470 Pontevedra. Tel. (986) 

34 91 84. 


Vendo ordenador Amstrad 
6128, con garantia de 
Indescomp. Regalo los 
siguientes programas: Amsfile II. 
DBase II, Supercalc, Conlabilidad 
con IVA, Vencimientos y colecion 
casi completa de mas de 250 
juegos, copiones y utilidades en 
cinta y en disco. Todo junto o 
por separado. Precio a 
convenir. Rafael Galdn Gil. Tel. 
(954) 65 15 53, Sevilla. 


Desearia contactar con 
usuarios de Amstrad CPC 
6128, para el intercambio de 
juegos y utilidades en disco. 
Contestare a todas las cartas. 
Interesados escribir a: Luis 
Briones. Luis de Salazar, 1, l.° 
D. 28002 Madrid. 


Vendo ordenador CPC 464, 
monitor color, mas de 60 
programas incluyendo juegos y 
utilidades; los libros Codigo 
Maquina, Programacion avanzada. 
Firmware, Tecnicas de programacion 
de grdficos ; mas de 80 revistas de 
Amstrad, lapiz optico, 
joystick..., todo por 70.000 
pesetas. Escribir a: Luis Buisan 
Perales. Bruselas, 13. 50003 
Zaragoza. O mejor, llamar al 
tel. (976) 43 04 54. 


Por cambio de ordenador, 
vendo Amstrad CPC 664 (con 
unidad de disco), monitor 
fosforo verde, cassette con 
cable, archivador con discos, 
con programas de utilidades: 
Procesador de textos, Hoja de 
calculo, Enscimblador- 
Desensamblador (con manuales); 
lenguajes: Turbo Pascal, Fortran, 
MBasic ; juegos de mesa: 3 


ajedreces tridim., Othello, 
Pocker, Billar, Ping pong...; 
juegos de marcianitos: Alien 8, 
Game over , Army moves, Infiltrator, 
Decation, Commando, Rambo, 
Combat Lynx, Skyfox. Desert fox, 
Goonies ...; copiones (que rnseno 
a manejar). Todo en perfecto 
estado. Precio: 69.500 ptas. 
Miguel Angel Gomez Bosquet. 
Felipe II, 277, 5-2 A. 08016 
Barcelona. Tel. (93) 352 88 90 
(llamar tardes). 


Intercambio experiencias, 
conocimientos, software, 
hardware cn el campo de la 
transmision de datos, via 
modem. No importa tipo de 
ordenador, aunque serla 
preferible Amstrad CPC 6128 
Puedo trabajar en CCITT 
normas V-21 v V-23, y 
contactar con cualquier 
ordenador que se ajuste a estos 
protocolos. En la actualidad 
tengo contactados mas de 100 
Mailboxs de toda Europa por 
este procedimiento. Tengo un 
Amstrad CPC 6128 y modem 
autoconstruido, adaptable a 
cualquier ordenador, con Port 
V-24 (RS232-C) y he 
«fabricado» mi propio software 
emulador de terminal. Este 
anuncio va dirigido a personas 
con verdadero interes en este 
campo, tanto si aportan 
experiencias similares como si 
no. Interesados, contactar con: 
Jose Antonio Bueno Medrano. 

Tels.: (91) 413 93 24, de 10,30 
a 14,30 horas, y 739 98 18, a 
partir de 22,00 horas. 


Vendo impresora Seikosha 
GP-250X, por 20.000 ptas. 
Regalo caja de hojas. Vendo 
proyector sonoro Super-8, Elmo 
SC-18, con pantalla 
incorporada, por 25.000 ptas. 
Regalo pantalla plegable con 
dos altavoces. Tel. (93) 

790 34 12, preguntar por Jose 
Auladell Gallego. 
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Proceso 
de textos 

Con este libro se pretende dar 
una idea clara de que es y como 
utilizar de una manera correcta 
un procesador de textos. En la 
primera parte del libro se hace 
una exposition detallada de sus 
ventajas y aplicaciones, 
describiendo las grandes 
diferencias existentes entre un 
sistema electronico de este tipo 
y las maquinas de escribir, aun 
en el caso de que sean tambien 
electronicas. Un procesador de 
textos es en realidad un 
pequeno computador con todas 
las caracterfsticas propias de 
estas maquinas, es decir, consta 
de monitor, un teclado y una 
impresora, que componen el 
hardware, y un disco en el que 
grabar los textos (software). Eso 
si, es un computador dedicado 
exclustvamente al proceso y 
edition de palabras, de textos. 

Despues de estos 
preliminares, pasa a explicarse 
las ventajas que tienen sobre las 
maquinas de escribir, por 
ejemplo, su mayor rapidez y 
eficacia. 

Mas adelante, describe el 
hardware, analizando cada 
una de sus piezas y su 
funcionamiento. Un aspecto 
importante del libro, pero sobre 
todo en este capitulo, son los 
graficos y esquemas con los 
que, ademas de alegrar las 
paginas, se comprende 
visualmente todo el proceso. 

Por ultimo dedica algunos 
capltulos a explicar como se usa 


V PROCESO 
de TEXTOS 




un procesador de textos y su 
importancia, as! como a evaluar 
cada sistema segun las 
necesidades de cada uno. 


Titulo: 

Autor: 

Paginas: 

Editorial: 

Precio: 


Proceso de textos 
L. Hollerbach 
101 

Paraninfo 

530 


El IBM 
a fondo 

Como su mismo autor 
apunta en la introduction, este 
libro «es el comienzo de un 
maravilloso viaje de 
descubrimiento de los secretes, 
maravillas y misterios del 
ordenador personal de IBM y la 
familia de ordenadores que ha 
surgido con el». 

El objetivo de Peter Norton 
es que se llegue a una amplia 
comprension del funcionamiento 
del PC y toda la familia que ha 
surgido de el, ademas de 
conocer todas sus posibles 
aplicaciones y como hacer para 
que, si se quiere, pueda 
realizarlo uno mismo, ya que 
esta dedicado a todos aquellos 
que deseen conocer y dominar, 
de acuerdo con sus niveles de 
conocimiento, tanto el hardware 
como el software basicos del PC 
y poder as! utilizar todas sus 
posibilidades. 

El libro empieza con una 
description de la historia del 
ordenador personal de IBM y 
toda la familia de compatibles 
que han ido apareciendo desde 
que fue presentado el IBM PC 
en el otofio de 1981, unos de la 
misma IBM y otros de 
diferentes compamas (los 
clones). 


A continuation, tras una 
detallada information sobre que 
es un ordenador y el esquema 
de su funcionamiento, pasa a 
explicar las caracteristicas 
especfficas del hardware que 
compone el PC, la organization 
de la memoria, los discos, el 
teclado y todos sus perifericos. 

Un capitulo ha tener en 
cuenta es el dedicado a la 
ROM-BIOS, es decir a lo que 
se podrla llamar el corazon del 
software de este ordenador. 

Despues explica el sistema 
operativo que utiliza, el 
MS/DOS, y como funciona 
para poder usarlo 
convenientemente. La mision de 
un sistema operativo es 
supervisar y controlar el trabajo 
y funcionamiento del ordenador. 
De ahl la importancia de este 
tipo de programas. 

Por ultimo, una parte del 
libro esta dedicada a las Notas 
Tecnicas, en las que se abordan 
temas mucho mas complejos y 
dedicados a aquellos que 
quieran adquirir algo mas que 
unos conocimientos 
practicos del PC. 

Incluye un diskette con todas 
las rutinas del libro y cuatro 
utilidades o programas 
realizados por Norton para este 
tipo de ordenadores. 
























Relleno de pantallas 
mediante bloques graficos 

por Alberto Suner 

Para que nuestros graficos resulten mucho mas atractivos, asi como para 
alcanzar un mayor realismo, lo mejor es utilizar un fondo. En el presente 
arttculo se explica una manera sencilla de conseguir el entorno apropiado a 
cada imagen. 


u 

•JL JL asta ahora hemos tratado de la 
impresion en pantalla de objetos moviles 
mediante sprites, pero nos queda una parte 
fundamental de la cual no se ha hablado aun. Se 
trata de la impresion del fondo de la pantalla, es 
decir, del escenario por donde se movera nuestro 
grafico. 

Como es de suponer, dichos escenarios no se 
almacenan en memoria en forma de pantalla, ya 
que ello supondria reservar 16 K de memoria 
para cada una de ellas, lo cual signilxcarfa 
que como maximo podrfamos disponer de tres. 

El metodo mencionado anteriormente, 
unicamente serfa utilizable para aquellos 
programas en los cuales el escenario es realmente 
imprescindible, ya que representa la parte 
fundamental del mismo. 

Esta condicion no se presenta en casi ningun 
programa, y aunque este fuera nuestro caso, la 
presentation en pantalla serfa muy sencilla, ya 
que unicamente se deberfan trasladar los datos de 
la memoria principal a la memoria de pantalla. 

Asf pues, vamos a tratar el caso mas general y 
que se da en la mayorfa de los programas 
comerciales, se trata de construir una pantalla 
mediante bloques graficos almacenados en 
memoria por separado. 

Vamos a ver como construir todas las pantallas 
que pueden intervenir en nuestro programa 
utilizando muy poca memoria en graficos, si se 
compara con las 16 K que serfan necesarias para 
almacenar una como tal. 

Para ello, debemos tener en cuenta la direction 
donde empieza la pantalla, dado que esta cambia 
cuando se produce algun scroll, ya sea en sentido 
ascendente o descendente. 


La mayoria de los programas 
comerciales construyen las pantallas 
mediante bloques graficos 
almacenados en la memoria. 
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Esto es muy importante tenerlo en cuenta. Si 
la direccion inicial de pantalla no tiene un valor 
concreto, nuestra rutina de impresion no pintana 
los graficos en el lugar deseado. 


Los fondos o escenarios de los 
programas, especialmente los ludicos, 
son una parte muy importante para 
dar vida a las pantallas. 


Para resolver este problema sera necesario 
inicializar la pantalla antes de proceder a la 
impresion. Esto se puede conseguir desde Basic, 
utilizando el comando mode, o bien desde Codigo 
Maquina, ejecutando las siguientes instrucciones: 

LD A,N 
CALL #BCOE 

donde N debera contener el valor del modo de 
pantalla que se desea inicializar, por tanto, dicha 
variable debera estar dentro del rango 0-2. 

Esta operacion dara como resultado la 
colocacion de la direccion inicial de pantalla en la 
posicion #C000, con lo que podremos imprimir a 
partir de la misma. 

Una vez hecho esto, no sera necesario volvera 
a inicializar en sucesivas impresiones, a no ser 
que se haya producido algun scroll. 

Deberemos tener en cuenta que en el momenta 
de imprimir hay que borrar lo que habfa de la 


Graficos por 

ORDB\IADOR 

forma vista anteriormente, o bien utilizando el 
siguiente programa: 

LD HL,#C000 
LD DE,#C001 
LD BC, 16383 
LD (HL),0 
LDIR 

Ya tenemos preparada la pantalla para la 
impresion en cualquiera de los modos. Vamos a 
ver ahora como podremos formar el escenario a 
partir de los bloques graficos almacenados en 
memoria. 

Lo primero que tenemos que hacer es 
confeccionar diversos dibujos que nos permitan 
formar un fondo mediante la repeticion de los 
mismos. Es conveniente que sean lo 
sulicientemente variados para permitirnos la 
realizacion de diversos fondos, ya que la variedad 
de escenarios es muy importante dentro de un 
programa y aun mas si se trata de un juego. 

Las dimensiones de los mismos pueden ser las 
que nosotros decidamos, teniendo en cuenta que 
cuanto mayores sean, mayor sera la cantidad de 
memoria utilizada. 

Una vez hecho esto, se trata linicamente de 
obtener los diversos fondos de pantalla, mediante 
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LD 8,C 

45 



66 

JR 

CDLOC 

3 



24 BUC2: 

PUSH BC 

46 INPRE: 

PUSH 

HL 

67 F.PAS: 

LD 

DE,0080 

4 

JtttRELLENO DE PANTALLAS 

25 

PUSH HL 

47 

LD 

HL,#0000-80 

68 

I R 

i-U 

A.H 
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St *- 

PUSH DE 

48 

LD 

B,D 

63 

X DR 

56 

q 



27 

LD HL,#A100 

43 

LD 

0,0 

70 

LD 

H,A 

f, 



28 

CALL INPRE 

SC¬ 

DEC- 

r 

C 

;i 

ADD 

HL, DE 

7 

LD 

C.fDt+O) 

29 

POP DE 

SI 

ADD 

HL, DE 

72 CDLGC: 

PUSH 

BC 

>; 

LB 

B,mw 

30 

POP HL 

S2 

LD 

DE, 80 

73 

PUSH 

HL 

9 

LD 

E, (11+4? 

31 

LD A, E 

S3 S BUC: 

ADD 

HL, DE 

74 

LD 

A, (ANCH0 

10 

LD 

0,(111+65 

32 

ADD A,L 

54 

DJNZ 

S BUC 

75 

LD 

e,A 

4 i 

li 

LO 

L.UX+S) 

33 

LD E,A 

S5 

POP 

ii 

76 P.BUCl: 

LD 

A,(11+03 

12 

LD 

H,(I1+10> 

34 

POP ec 

r r 
r>n 

LD 

A, (ALTO) 

77 

LD 

(HU, A 

13 

LO 

A , L 

35 

DJNZ BUC2 

S7 

LD 

B , A 

78 

INC 

11 

14 

LD 

(ANCHO).A 

36 

POP DE 

58 

JR 

CQL0C 

79 

INC 

HL 

i r 

LD 

A, H 

37 

POP HL 

59 p_buc: 

LD 

A.H 

80 

DJNZ 

P BUCl 

16 

SLA 

A 

38 

LD A , D 

60 

AND 

56 

81 

POP 

HL 

17 

SLA 

A 

33 

ADD A,H 

61 

CP 

56 

82 

POP 

EC 

18 

SLA 

A 

40 

LD D, A 

62 

JR 

Z,P_PftS 

83 

DJNZ 

P.BUC 

IS 

LD 

(ALTO),A 

41 

POP BC 

63 

LD 

A.H 

84 

RET 


20 

BUCl: PUSH BC 

42 

DJNZ BUCl 

64 

ADD 

A,8 

85 ALTO: 

DEFS 

1 

21 

PUSH HL 

43 

RET 

65 

LD 

H,A 

86 ANCHG: 

DEFS 

1 

22 

PUSH DE 

44 
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Con esta rutina se pueden conseguir, 
mediante la repeticion de bloques 
graficos originates, los fondos de las 
pantallas con un gran ahorro de 
memoria. 


la repeticion de los bloques graficos, con lo cual 
se puede rellenar una pantalla con muy poca 
memoria destinada a graficos. 

La rutina que hemos preparado hoy se encarga 
precisamente de confeccionar la pantalla 
utilizando los bloques graficos definidos. 

Esta formada principalmente por dos bloques. 
Uno es la rutina de impresion, propiamente 
dicha, y que ya hemos comentado. El otro es el 
que debe decidir cual sera la zona de pantalla a 
imprimir. 

Para ello deberemos dar unas condiciones 
iniciales, en las cuales se debera indicar: 

A: Altura del bloque a imprimir 
B: Anchura del bloque a imprimir 
C: Coord, horiz. donde empezara la impresion 
D: Coord, vertical donde empezara la impresion 
E: Ancho de la zona de pantalla a imprimir 
F: Alto de la zona de pantalla a imprimir. 

Esta rutina podra ser utilizada desde Basic 
mediante el siguiente comando: 

CALL &A000,A,B,C,D,E,F 

Hay que tener cuidado con los datos que se 
indiquen en la llamada a la rutina, ya que si 
estos hacen que la impresion se saiga de los 
limites de la pantalla podria causar una catastrofe 
en nuestro programa. 

De esta forma la coordenada vertical mas la 
anchura de la zona a imprimir no debe superar 
el valor 25, de la misma manera que la 
coordenada horizontal mas la anchura no debe 
ser mayor que 80. 

Otro dato importante, que no hemos 




mencionado, es la direccion donde debe residir el 
grafico a imprimir, dado que la rutina toma el 
grafico de la direccion &A100. Ahi es donde 
deberemos colocar nuestro dibujo, teniendo en 
cuenta que debera estar almacenado como bloque 
grafico. 

Dicha direccion se puede variar modificando el 
contenido del registro HL, que es el que apunta 
a la direccion del grafico: 

LD HL,#A100 

Asf, si la rutina es llamada desde Basic, antes 
deberemos colocar el grafico a imprimir en dicha 
direccion. Otra solucion puede ser cambiar la 
direccion donde apunta el registro doble HL, y 
dirigirla donde se encuentra nuestro bloque 
grafico. 

Vamos a interesarnos ahora por la velocidad de 
ejecucion de la rutina. Si hacemos diferentes 
pruebas, comprobaremos que dicha velocidad 
sera mayor cuanto mas grande sea el bloque a 
imprimir, aunque esto repercutira en un mayor 


NECESITAMOS personas 

que conozcan profundamente 
lenguaje ensamblador del Z80 y 
dominen los ordenadores Amstrad 
CPC desde el punto de vista del 
Lenguaje Maquina 

Si usted es uno de ellos pongase en 
contacto con nosotros rapidamente 
en la direccion que se indica a 
continuacion, poniendo en lugar 
muy visible del sobre. 

Referenda 
Codigo Maquina 
AMSTRAD Semanal 
Nuestra direccion es: 

AMSTRAD Semonol 

Carretera de Irun, km 12,400. 
Fuencarral. 28049 Madrid. 



NECESITAMOS personas 


que conozcan profundamente lenguaje ensamblador del 8086/8088 y 
dominen los ordenadores compatibles IBM PC desde el punto de vista del 
Lenguaje Maquina. Se valoraran en gran medida conocimientos acerca del 

DOS. 

Si usted es uno de ellos pongase en contacto con nosotros rapidamente en 
la direccion que se indica a continuacion, poniendo en lugar muy visible del 

sobre: 

Referencia DOS AMSTRAD Semanal 
Nuestra direcci6n es: 

AMSTRAD Semanal 

Carretera de Irun, km 12,400. Fuencarral. 28049 Madrid. 
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consumo de memoria en graficos, por lo tanto 
deberemos decidir nosotros mismos lo que es mas 
importante en cada caso determinado. 

Para una mayor facilidad en la comprension 
del funcionamiento de la rutina, hemos 
preparado un programa de demostracion que se 
encarga de pintar un tablero de ajedrez. 

En este caso unicamente utilizaremos un 
bloque grafico que colocamos en la direccion 
&A100, cuyas dimensiones son de tres de alto por 
uno de ancho. La velocidad de la impresion se 
podrfa aumentar haciendo un bloque de mayores 


dimensiones, o bien reducir disminuyendo sus 
dimensiones. 

Si se quiere utilizar la rutina desde Codigo 
Maquina, se deberan suprimir las primeras lfneas 
encargadas de tomar las condiciones iniciales, e 
introducir otras nuevas en las que se den valores 
a los registros HL, BC y DE. 

HL: Dimensiones del bloque grafico 

BC: Dimensiones de la zona de pantalla a 

imprimir 

DE: Coord, iniciales 

Ademas se podra cambiar la direccion del 
grafico a imprimir direccionando el puntero HL. 

Solo resta decir que para almacenar este 
programa bastara con copiar el cargador Basic 
que aparece al final del artfculo, y ejecutarlo. Si 
no aparece ningun mensaje de error, se podra 
salvar en disco o cinta de la siguiente forma: 

SAVE 1 ‘ BLOQBIN’ ’, B, &A000, &80 

Para ejecutar el programa demostracion, hay 
que efectuar previamente la operacion antes 
citada, ya que ella sin el programa en Codigo 
Maquina no podra funcionar. 



PROGRAMA DEMO 

i0 MODE 1;BORDER 0:INK 3,0:1NK 2 26 

30 6Q3UB 220 

170 NEXT B 

:INK l,is:INK 0,0 

90 CALL SA000,1.1,25,1,1, SO 

180 RETURN 

20 MEMORY’ &9FFF:i0A0"BL00BIN", &A000 

100 GOTO 100 

190 CALL &A000,3,i,A,B,i,10 

21 BORDER 15 

ISO FOR B-l TO 61 STEP 20 

200 RETURN 

30 G'CS'UB 210 

120 GCSUB 190 

210 FOR N=SA100 TO M!17:P0KE N, 15: 

40 FDR X=i TO 20 STEP 6 

130 NEXT B 

NEXT:RETURN 

so a=x:gdsuo iso 

140 RETURN 

220 FOR N=&ftl00 TO M107:P0KE N,240 

60 A='X+3: G'OSUB 110 

150 FOR 8=11 TO 71 STEP 20 

:NEXT:RETURN 

70 NEXT X 

160 GCSUB 190 



PROGRAMA CARGADOR 


10 rem nmmnnmnnmtnm 
untu 

20 REM * RELLENO DE PANTALLA CON BL 
OQUES * 

30 rem unununnnutnuutn 
uutu 

40 REM 
50 REM 

60 FDR N=&A000 TO &A080 
70 READ A:SUMA=SUNA+A 
80 POKE M 


90 NEXT 130 DATA 
100 IF SUMAO&33DS THEN PRINT "ERR0 200 0ATA 
R EN DATAS" 210 DATA 
110 DATA 221,78,0,221,70,2,221 220 DATA 
120 DATA 94,4,221,86,6,221,110 230 DATA 
130 DATA 8,221,102,10,125,50,127 240 DATA 
140 DATA 160,124,203,33,203,39,203 250 DATA 
150 DATA 33,50,126,160,137,229,213 260 DATA 
160 DATA 65,197,229,213,33,0,161 270 DATA 
170 DATA 205,62,160,203,225,123,133 280 DATA 
180 DATA 95,193,16,239,209,225,122 290 DATA 


132,87,193,16,227,201,229 
33,176,191,66,22,0,29 
25,17,80,0,25,16,253 
221,225,58,126,160,71,24 
21,124,230,56,254,56,40 
6,124,198,8,103,24,8 
17,80,0,124,238,56,103 
25,137,223,58,127,160,71 
221,126,0,113,221,35,35 
16,247,225,133,16,216,201 
0 , 0 , 0 , 0 , 0 , 0,0 
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THAI BOXING 


Velocidad de rayo, 
contacto violento 


Ei 


1 Thai Boxing, o boxeo thailandes, es una 
curiosa mezcla de boxeo y karate que tiene como 
resultado un deporte duro de verdad, violento. 

La velocidad de los contendientes es 
impresionante, y el resultado, o sea el golpe, es 
contundente. Este deporte, impresionante de ver, 
pero duro de practicar, nos lo trae ahora a las 
pantallas de nuestros ordenadores Piranha de la 
mano de Zcobra. En Thai Boxing deberemos 
enfrentarnos a los contendientes que nos 
presentara el ordenador a lo largo de los ocho 
niveles que tiene el juego. En la pantalla 
podremos ver dos caras, la de nuestro oponente y 
la propia, en la que veremos el castigo que van 
sufriendo ambos luchadores, asi como dos 
barras que indican como esta su energia. Para 
pasar de nivel sera necesario disminuir a cero la 
resistencia de nuestro oponente a base de buenos 
golpes. Si no queremos ser nosotros los 
derrotados, deberemos retroceder cuando nuestro 
rostro refleje un castigo severe y tomar un 
respire. 


IUSLI 

resp 


Planteamiento simple, pero bien desarrollado, 
para un juego que puede hacernos pasar el rato 
de manera muy agradable. Graficamente es 
bueno, el juego se desarrolla en un desguace de 
vehfculos bajo una perspectiva aerea bien 
realizada, y es rico en colores, por lo que es 
agradable a la vista. 

El movimiento, que es fundamental en este 
tipo de juegos, es agil y los golpes son dados con 
gran sensacion de realidad. 

Digno de mencion: el movimiento. Es rapido 


y 
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Zcobra. 

Tel. 459 30 04 

Cinta: 980 ptas. 

Disco: 2.500 ptas. 
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THE SENTINEL 



i 


Erigete en 

regidor del panorama 

| No disponible todavia en Espana 


C<uando vimos The Sentinel, lo primero que 
nos vino a la mente fue el recuerdo de un juego 
al que jugamos mucho cuando eramos ninos, el 
Rey de la Montana. Por si alguien no lo sabe, 
cosa rara realmente, este juego consistfa en 
conseguir ser el unico chaval que pudiera estar 
sobre la cima de un montfculo elegido 
previamente. 



El tema, de este juego de Firebird, tiene un 
planteamiento sumamente parecido, en el que 
deberemos cambiar la montana por un paisaje, y 
desbancar de su reinado al centinela. 

Despues de introducir un numero codigo de 
paisaje, veremos aparecer este en pantalla. El 
Sentinel y sus sentries permaneceran inactivos 
hasta que nos movamos, cosa que nos dara 
tiempo para elaborar nuestra estrategia. El 
sistema que hay que desarrollar para veneer al 
Sentinel, se basa en la absorcion de la energfa de 
este por nuestra parte, cosa nada sencilla puesto 
que el Sentinel cuenta con un poderoso ejercito 
de ciberneticos Sentry 

Este es el resumen, bastante escueto puesto que 
el tema es realmente psicodelico y un tanto 




extenso, de The Sentinel. Esta claro que este tema 
puede gustar o no gustar, pero lo que es 
innegable es que es, como ya dijimos antes, 
bastante original. 

Graficamente no es excesivamente complicado, 
al fin y al cabo se trata de un paisaje formado 
por volumenes geometricos de caras lisas, pero el 
efecto tridimensional que crean, asf como los 
colores utilizados, lo hacen agradable a la vista. 
Los scroll’s de movimiento estan bien hechos. 

Como ya dijimos en un principio. The Sentinel 
es de Firebird, siendo distribuido por Dro Soft. 

Digno de mencion: imagen tridimensional y 
scroll de movimiento. 

A mejorar: las instrucciones. Son un tanto 
confusas, debido a los «inmatcrial» del juego 
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ROGUE TROOPER 


vida. Para realizar su rnision, e] infante debera 
recoger ocho cintas filmadas por las camaras del 
satelite Millicon que quedaron esparcidas por el 
planeta al ser destruido este. En ellas se 
encuentra la identidad del traidor informante 
Despues de conseguir esto. Rogue puede devolver 
la existencia formal o corporea a sus camaradas 

Esta claro que el argumento es interesante v 
que se sale un poco de lo corriente, cosa que 
hace de este juego que se saiga un poco de la 
media de los que se basan en la recolerridn de 
objetos. 

Graficamente no sorprende, pero esta bien 
realizaclo. El color es simple, solo utiliza bianco \ 
azul El movirniento es el normal en estos juegos 

Rogue Trouper es de Piranha y esta distribuido 
por Zcobra. 

Digno de mencion: el tcma. Los mensajes 
dados por los biochips amenizan la partida. 
Lastima que sean en ingles. 

A mejorar: el color Es bastante pobre. 


Historia 

de un infante galactico 


Zcobra. 

Teh 459 30 04 

Cinta: 9480 ptas. 

Disco: 2.500 ptas. 


Ell que se hagan juegos basados en pelfculas 
es una cosa bastante corriente y muy utilizada, 
pero los basados en comics no han sido 
especialmente tratados. Rogue Trooper pertenece a 
este ultimo grupo, y con el podremos descender 
de las tfpicas naves espaciales a las que nos 
tienen tan acostumbrados los guionistas de 
juegos, para pasar a formar parte del Grupo de 
Infanteria Genetica (G.I.G), y luchar por vengar 
a nuestros camaradas de la traicion de que fueron 
vfctimas por parte de un infante traidor. Entre 
las vfctimas de la masacre Rogue perdio a sus 
tres mejores camaradas, pero consiguio integrar 
sus personalidades en tres biochips y anadirlos, 
como procesadores de ataque, a su armamento, 
hasta el momento en que pudiera devolverlos a la 












(Si lo deseas puedes suscribirte par telefono (91) 734 65 00) 

sm IRITIS NIIMFROS ATRASADOS. CINIAS SERI 0R0 ¥ TAPAS 


Deseo recibir en mi domicilio las cintas que a continuacion indico, 
al precio de 756 ptas. cada una. Cada cinta lleva grabados los progra- 
mas publicados por AMSTRAD SEMANAL durante cuatro nume- 
ros consecutivos (1 al 4, 5 al 8, 9 al 12, etc.) 

Las cintas que deseo son: 

Numeros al Numeros al 

Numeros al Numeros al 

□ Deseo recibir en mi domicilio los siguientes numeros atrasados de 

AMSTRAD SEMANAL, al precio de 190 pts. cada uno. 


(Se encuentra agotado el n.° 4) 

□ Deseo recibir en mi domicilio las tapas para conservar AMSTRAD 

SEMANAL, al precio de 850 pts. (No necesita encuadernacion) 
Nombre_Fecha de Nacimiento _ 

Apellidos_____ 

Domicilio___ 

Localidad _ Provincia 

C. Postal __Telefono- 

(Para agillzar su envio, es importante que indigue el cddigo postal] 

Formas de pago 

□ Talon bancario adjunto a nombre de Hobby Press, S.A. 

□ Giro Postal a nombre de Hobby Press, S.A., n° 

□ Contra reembolso (supone 125 pts. mas de gastos de envio y es 
valido solo para Espana). (Excepto cintas.) 

□ Tarjeta de credito n? DDDD DODU 
(Solo para pedidos superiores a 1.500 pts.) 

Visa □ Master Card □ American Express □ 

Fecha de caducidad de la tarjeta- 

Nombre del titular (si es distinto)- 

Fecha y firma 


RABUL0E 

PROGRAk 


AMSTRAD 


EN CASA 


^Jeseo suscribirme a la revista AMSTRAD SEMANAL por un afio 
(50 numeros). al precio de 7.950 pts. Esta suscripcion me da derecho 
a recibir, totalmente gratis, los dos ultimos exitos del momento ARMY 
MOVES y GAME OVER (oferta valida solo para Espana). 

Nombre_Fecha de Nacimiento 

Apellidos _—{- 

Domicilio ._* __— - 

Localidad_;—_ 

C. Postal_ 


Provincia 

Telefono 


(Para agilizar su envio, es importante que indique si cddigo postal) 

Formas de pago 

□ Talon bancario adjunto a nombre de Hobby Press, S.A. 

□ Giro Postal a nombre de Hobby Press, S.A., rt° 

□ Contra reembolso (supone 125 pts. mas de gastos de envio y es 
valido solo para Espana). 

□ Tarjeta de credito n? DDDD DDDD L 

Visa □ Master Card □ American Express □ 

Fecha de caducidad de la tarjeta- 

Nombre del titular (si es distinto) 

(Si pago con la tarjeta de credito, recibire un numero mas de regalo). 

Fecha y firma 


No se admiten solicitudes de cintas contra reembolso 
































JLDSOS 
iRAMAS 
GRATIS 
RARA Tl 

Suscribete hoy mismo a 
AMSTRAD y recibirds a 
vuelta de correo los dos 
mayores exitos fife 
Dinamic 


ARMY MOVES 
Como miembro del Cuerpo 
de Operaciones Especiales, 
Dendhol ho sido adiestrado 
en varies sistemas de 
combats distintos, asi como 
en el manejo de rodas las 
armas, explosivos y 
tecnicas de guerra en la 
selva. Ahora, tras largos 
alios de entrenamiento, le 
ha llegado el momento de 
demostrar sus habilidades 
y atravesar, per Sierra., 
mar y aire, las lineas 
enemigas. jlo conseguira? 

GAME OVER 

Los problemas de libertad 
existen hasto en las mas 
lejanas galaxias. Si no, 
que se lo digan a los 
habitantes del planeta 
Porshaco, quienes estan 
sufriendo en sus carnes 
viscosas la tirania de la 
princesa Gremla. 
Afortunadamente, Arkos, el 
mas hdbil de todos los 
mega-terminators, ha 
decidido acabar con este 
juego,- afortunadamente 
para nosotros, comienza 
Game Over. 


Beneficiate de las venfajas 
de la tarjeta de credito. 

Un numero mas, Gratis, 
en tu suscripcion y la posiiiidaa 
de realizar el pago aplazado 
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Benefodate de las ventajas 
de la tarjeta de credito. 

Un numero mas, gratis, 
en tu suscripcion y la posiiiidaa 
de realizar el pago aplazado. 


FABUIDSOS 

PROGRAMAS 

GRATIS 
RARATI 


Suscribete hoy mismo a 
AMSTRAD y recibiras a 
vuelta de correo los dos 
mayores exitos de 
Dinamic 


ARMY MOVES 

Como miembro del Coerpo 
de Operations Especioles, 
Dendhol ha sido adiestrado 
en varios sistemas de 
combate distintos, osi camo 
en el manejo de todas las 
armas, explosivos y 
tecnicas de guerra en la 
selva. Ahoro, tras largos 
alios de entrenamiento, le 
ha llegado el momenta de 
demostrar sus hafelidodes 
y atravesar, por tierra, 
mar y aire, las lineos 
enemigas. jLo tonsegoira? 

GAME OVER 

Los problems de libertod 
existen hasta en las mas 
lejanas galaxias. Si no, 
que se lo dipt a los 
habitantes del planefa 
Porshaco, quienes estan 
sufriendo en sus comes 
viscosas la tirania de lo 
princess Gremla. 
Afortunadamente, Arkos, el 
mas habit de todos los 
mega-terminators, ha 
deridido acabar con este 
juego,- afortunadamente 
para nosotros, comienzo 
Game Over. 
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